es geht wieder los.
Ich habe hier meine tolle Schleife, die ich ohne Eure Hilfe nicht schreiben haette koennen. Ich will jedoch, dass die Eingabe in die InputBox auf jeden Fall eine Zahl ist. Wenn dies nicht der Fall ist soll eine MsgBox erscheinen.
Kann mir da jemand helfen?
Es langt auch schon wenn ihr mir den Code gebt, dass die Eingabe der InputBox eine Zahl sein soll und sonst eine MsgBox erscheinen soll. Den Rest sollte ich von alleine hinbekommen.
Hier noch einmal der Code der Schleife, ist nicht perfekt aber besser als gar nichts:
Dim filStr As Variant
Do
filStr = InputBox("Please insert the order number of this month", "Order Number")
If StrPtr(filStr) = 0 Then
If MsgBox("You want to cancel it?", vbYesNo + vbQuestion, "Warning") _
= vbYes Then GoTo GiveUP
Else
If Trim$(filStr) = "" Then
MsgBox "This was OK, but a order number is needed!", _
vbInformation, "Help"
Else
If MsgBox("Beautiful! Is this the right number? order number: " & _
filStr, vbYesNo + vbQuestion, "Let's go") = vbNo _
Then GoTo 10
Exit Do
End If
End If
Loop
Der Code sieht ziemich wild aus, weiss aber auch nicht wie man in "schoen" in das Forum eintragen kann.
Danke
Gnilk