Userform Eingabenüberprüfung
13.03.2017 15:29:02
Kaan
Ich habe eine Userform erstellt die mehrere Textboxen, Comboboxen und Listboxen enthält.
Zum Schluss habe ich einen Commandbutton eingefügt, mit dem alle Boxen überprüft werden sollen, ob etwas drin steht. Falls nicht, gibt mir der Code eine MsgBox aus, die den User auf den Fehler hinweist.
Mein Code funktioniert zwar, aber im Laufe der Userform (je nachdem was der User in verschiedenen Comboboxen auswählt) werden verschiedene TextBoxen ausgeschaltet (TextBox.Enabled = False).
Nun würde ich gerne alle Boxen, die ausgeschaltet sind, von der Überprüfung des Inhalts ausschließen.
Ich habe es bis jetzt nicht bewerkstelligen können, also wende ich mich an euch.
Hier ist noch der Code zur Überprüfung, ob in den boxen ein Inhalt enthalten ist:
Private Sub FertigstellenCommandButton_Click()
Dim objtxt As Object
For Each objtxt In BestandsverwaltungUserForm.Controls
If TypeName(objtxt) = "TextBox" _
Or (TypeName(objtxt) = "ComboBox") _
Or (TypeName(objtxt) = "ListBox") _ Then
If objtxt.Value = "" Then
MsgBox "Es wurden nicht alle Felder ausgefüllt!", vbCritical, "Fehlermeldung"
Exit Sub
End If
End If
Next
If MsgBox("Wollen Sie Ihre Eingaben noch ein mal überprüfen?", vbYesNo + vbQuestion, "Überprü _
fung") = vbYes Then
Exit Sub
Else
MsgBox ("Ende")
End If
End Sub
Ich hoffe ihr könnt mir helfen.
Mit freundlichen Grüßen,
Kaan
