Do while Loop
20.10.2017 13:55:32
Martina
ich möchte gerne wenn ich einen Button Klicke, dass was in einer bestimmten textbox
einetippt wurde überprüft wird. Dabei soll überprüft werden ob es sich um eine ganze Zahl handelt. D.h wenn ich zb ein String in der textbox stehen habe und den Button klicke, soll eine nachricht kommen mit "Bitte geben Sie eine ganze Zahl ein". Die
msgbox soll dann mit ok geschlossen werden und der Benutzer soll wieder etwas eintippen . Dies soll so lange geschehen, bis der Benutzer endlich eine ganze Zahl eingegeben (im Idealfall zwischen 1 und 12)hat. nach der Eingabe von einem ganzen Zahl soll die Schleife verlassen werden.
Ansatz:
Do
Monate = TextBox12
If IsNumeric(Monate) = False Then
MsgBox "Bitte geben Sie eine ganze Zahl ein"
Else
Monate = TextBox12
Loop Until IsNumeric(Monate) = True
irgendwie läuft das nicht so richtig :( .... hat jemand eine Idee?
Liebe Grüße
Tina