kriege es irgendwie nicht gebacken. Im Archiv habe ich zwar viele Beiträge gesehen, ich kann sie aber nicht auf meine Inputbox anwenden. Liegt wohl an der UHrzeit oder eher an meinem VBA-Level.
Ich möchte gerne in mein Makro einbauen, dass bei "abbrechen" in der Inputbox das Makro auch gezielt abbricht.
Private Sub Mail_versenden()
Dim intwahl As Integer
Dim wert As String
Application.ScreenUpdating = False
If Range("p1") "OK" Then
MsgBox "Abfragedatum ist nicht aktuell!"
Exit Sub
Else
End If
intwahl = MsgBox("Wollen Sie die Mail versenden?", _
vbYesNo + vbQuestion, "Rückfrage")
If intwahl = 6 Then
wert = InputBox("bitte ggf. zustätzlichen Text eingeben", "Zusatztext", "")
'WENN ABBRECHEN GEDRÜCKT, DANN EXIT
ansonsten kommt das eigentliche Makro
Range("a1").Select
ActiveWorkbook.Save
End If
Application.ScreenUpdating = False
End Sub
Wer kann mir helfen? Danke!
Gruß
Markus