Hallo wie der Name schon sagt möchte ich eine Inputbox erstellen welche sich so lange wiederholen soll,
bis der richtige Wert eingegeben wurde. Das funktioniert eigentlich auch super z.B. so (Input darf nicht leer sein)
Code:
BauteilName = False
Do
BtlName = InputBox("Bitte geben Sie den Namen der Haupt-BG an.", "Input")
If BtlName <> "" Then
BauteilName = True
End If
Loop Until BauteilName = True
Nun soll die Positionsnummer eingegeben und geprüft werden. Die positionsnummer darf nur an der 1000er- und 100er-Stelle
über null sein. Also 1000 - 9900. Also Prüfe ich ob Pos 1+2 > 0 und Pos 3+4 = 0 und ob das Inputfenster leer ist.
Sobald eine Zahl drin steht funktioniert die Prüfung wunderbar, aber sobald ich leer auf ok oder auf Abbrechen gehe dann
wird die Inputbox nicht mehr wiederholt?!
Code:
PositionsNummer = False
Do
Pos_Nr = InputBox("Bitte geben Sie die Pos_Nr der Haupt-BG an." & vbLF & _
"----------------------------------------------------------------------" & vbLF & _
"Nur die ersten zwei Stellen sind zu definieren." & vbLF & _
"" & vbLF & _
" Form: 1000 bis" & vbLF & _
" Form: 9900", "Input") If Len(Pos_Nr) = 4 AND Pos_Nr <> "" AND Left(Pos_Nr, 2) > 0 AND Right(Pos_Nr, 2) = 0 Then
PositionsNummer = True
End If
Loop Until PositionsNummer = True
Wenn ich nur Pos_Nr <> "" Prüfe dann wiederholt er die Inpubox bei leerem
Eingang. Sobald ich jedoch zusätzlich noch Left(Pos_Nr, 2) > 0 AND Right(Pos_Nr, 2) = 0
prüfe, bringt er die Inputbox bei leerer Eingabe nicht mehr sondern prüft
nur noch die Zahlen wenn welche eingegeben wurden
[Diese Nachricht wurde von InFlames am 12. Jun. 2015 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP