Nochmal InputBox abbrechen
18.08.2005 09:31:18
Christian
Bedingung:beim klick auf Abrechen der InputBox soll er das Makro abrechen.
Muss weiterhin sagen, das Sub Test ein Teil von 5 Teilen ist was im Makro enthalten ist und er das ganze Makro abbrechen soll.
Auch soll er das Makro nicht abbrechen wenn der Text leer bleibt, da man aus Testzweck, da es schneller geht, manchmal keine Eingabe benötigt.
Soll eben nur abbrechen wenn ich auf Abbrechen klicke.
Hoffe mir ist noch zu HELFEN !!!!
Private Sub test()
Dim text As String
text = InputBox("Eingabe des gewünschten Kunden", "xxx")
If text = "" Then Exit Sub
Sheets("test1").Select
Range("C4").Value = text
Sheets("test2").Select
End Sub
Gruß
Christian
Anzeige