Office: Textboxen auf Eingabe prüfen

flomo0816 · 12. Februar 2016

Ich habe in meinem Code einen Fehler den ich nicht lösen kann.

Die Überprüfung der Textboxen funktioniert, nur sollte erst auf die nächst multipage gewechselt werden wenn die zu überprüfenden Textboxen gefüllt sind.
Es zeigt zwar eine Message Box mit Fehler an, aber es springt weiter auf Multipage Seite 2. Ich möchte aber das nachdem die Nachricht : "Bitte alle Pflichtfelder ausfüllen!" kommt, dass der Cursor auf die leere Textbox springt.

Ausgang: Ich habe 10 TextBoxen und 1 ComboBox. Textbox 1 bis 5 und ComboBox1 werden nicht überprüft.

Danke

Code:

Private Sub CommandButton3_Click()

Dim ctrElement As Control
For Each ctrElement In Me.Controls
If TypeName(ctrElement) = "TextBox" Or TypeName(ctrElement) = "ComboBox" Then
Select Case ctrElement.Name
Case "TextBox1", "TextBox2", "TextBox3", "TextBox4", "TextBox5", "ComboBox1"
Case Else
If ctrElement.Value = "" Then
MsgBox "Bitte alle Pflichtfelder ausfüllen!" ', 48
ctrElement.SetFocus
Exit For
End If
End Select
End If
Next ctrElement

MultiPage1.Value = 1

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

ransi · 14. Februar 2016

Hallo,

Versuch mal statt Exit For
Exit Sub

ransi

flomo0816 · 14. Februar 2016

Cool Danke,

das ist es !!!!

Office: Textboxen auf Eingabe prüfen

Textboxen auf Eingabe prüfen

Textboxen auf Eingabe prüfen

Textboxen auf Eingabe prüfen - Similar Threads - Textboxen Eingabe prüfen

Textbox: Ans Ende der Eingabe springen

TextBoxen für eingabe sperren

TextBox Eingabe überprüfen

Autofilter durch eingabe in Textbox

TextBox nicht verlassen, wenn Eingabe kein Datum

Textbox - Eingabe auf Zahlen beschränkt, trotzdem ein Symbol

TextBox-Eingabe soll in Tabelle als Zahl erscheinen