Habe ein Problem mit Textbox . Überprüfe über Makro ob In Combobox und zwei Textboxen ein Eintrag vorhanden ist . Das funktioniert auch , mein Problem wenn die fehlermeldung kommt sollen die Textboxen geleert werden . Ich habe es schon mit .Text = " " versucht aber dann gab er keine Fehlermeldung mehr sondern löste das Ereignis aus . Hier mein Code .
Private Sub CommandButton2_Click()
Dim T, T1, T2 As String
T = ComboBox2.Text
T1 = TextBox3.Text
T2 = TextBox4.Text
If T = Empty Or T1 = Empty Or T2 = Empty Then
ComboBox2.ListIndex = -1
MsgBox "Pflichteingaben Fehlen !!!"
Exit Sub
End If
UserForm2.Show
End Sub
mfg Ralf