Hallo Helfer,
dieses Makro funktioniert vollständig, wenn ich es per F8 Schritt für Schritt ausführe. Wenn ich es über mein Menue ausführe, wird die Call Anweisung nicht ausgeführt. Woran kann das liegen?
Sub eine_Tab_Datei()
Dim objNachricht As Object
ActiveSheet.Copy
Dim Dateiname
Dim Pfad As String
Dateiname = Application.GetSaveAsFilename(fileFilter:="Excel-Arbeitsmappe, *.xls")
ActiveWorkbook.SaveAs Filename:=Dateiname
Call VBA_Code_löschen
Dim intFrage As Integer
If intFrage = MsgBox("Soll die Tabelle gedruckt werden?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
Dim VarPrints As Variant, intI As Integer, intK As Integer
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints = False Then
End If
End If
If intFrage = MsgBox("Soll die Tabelle per Email versandt werden?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
Application.Dialogs(xlDialogSendMail).Show
End If
End Sub
mfg
Wolfgang