vbYesNo
26.08.2005 06:51:16
gnilk
mein Makro steht! Ich war mal so arrogant und habe VBA als gut angegeben. Ist vielleicht nicht ganz wahr. Aber ich bin so stolz auf mein Tool.
Nun gut, zu meinem Problem. Das Ganze Tool ist noch nicht so benutzerfreundlich. Ich habe eine Feld in einer Wenn Dann Bedingung, dass den Benutzer fragt, ob er das Tool abrechen soll oder nicht.
Ich will, dass beim Anklicken von YES das Makro beendet wird. Also GoTo Give Up und beim Anklicken von NO soll es wieder zum Anfang springen, also GoTo Start.
Kann mir jemand helfen? Ich habe schon so viel versucht, aber irgendwie funktioniert es noch nicht. Bin fuer jede Anregung offen.
Hier mein bisheriger Code:
Private Sub CommandButton1_Click()
' sollte jetzt die Box zum Eintragen zeigen
Start: Dim filStr As Variant
filStr = InputBox("Please insert the order number of this month", "Order Number")
' abrechen, falls keine Werte in der Box sind
If StrPtr(filStr) = 0 Then
MsgBox "You want to cancel it?", vbYesNo, "Warning"
If vbYesNo = No Then GoTo Start
ElseIf vbYesNo = Yes Then GoTo GiveUp
ElseIf filStr = "" Then
MsgBox "This was OK, but a order number is needed!", , "Help"
GoTo Start
Else
MsgBox "Beautiful!", , "Let's go"
End If
' Abbruch des Makro, wenn man zu GiveUp kommt
GiveUp:
End Sub