Auszug aus meinem Makro:
Private Sub Workbook_Open()
Sheets("Zusammenfassung nach Artikel").Select
Dim Was As Variant
Do
Was = InputBox("Geben Sie die Artikelnummer ein!" & vbCr & "Bsp.: 1A 322 656", "Artikel Laden?", Was)
If Len(Was) 10 Then Uglt = MsgBox("Die Artikelnummer muss im Format XX XXX XXX angegeben werden!" & vbCr & "Bsp.: 1A 322 656", vbOKOnly, "Ungültige Eingabe!")
End If
Loop Until Len(Was) = 10
Range("B2").Select
Beginn: If ActiveCell = Was Then
GoTo weiter
Mein Problem: Ich möchte bei der InputBox den Schalter Abbruch zulassen, geht aber nicht, weil dann immer die MsgBox kommt (Da ja nichts eingegeben wurde!)
Wie kann ich das lösen?
Danke!
Rolf