Makro Abbruch
18.01.2023 17:48:42
Dirk
ich habe folgendes Makro
Sub ProjektTest() Dim varInput As String varInput = Application.InputBox("Bitte den Namen des Kunden eintragen", "Eingabe Kundenname", Default) & "*" If varInput = "" Then Exit Sub End If Columns("P:P").Select Selection.AutoFilter Field:=1, Criteria1:=varInput Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Columns("X:X").Select Selection.SpecialCells(xlCellTypeBlanks).Select End Sub
Das Makro soll nun nicht weiterlaufen, wenn in der Input Box kein Eintrag erfolgt oder auf ABBRECHEN geklickt wird. Gibt es da eine Möglichkeit? Dachte, das hätte ich mit der Anweisung
If varInput = "" Then
Exit Sub
End If
erledigt, aber das Makro läuft trotzdem weiter. Gibt es außerdem noch die Möglichkeit eine Message Box aufploppen zu lassen, wenn kein Eintrag erfolgt oder auf Abbrechen geklickt wird?
Danke für Eure Unterstützung.