ich habe eine Userform mit 3 Comboxen, mit OK werden die Daten aus den Comboxen in bestimmte Zellen geschrieben.
Wie stelle ich ein dass der OK klick nur funktioniert wenn die drei Boxen ausgefüllt sind?
DANKE!
CommandButton_Ok.Enabled = Combobox1.ListIndex >-1 And Combobox2.ListIndex >-1 And Combobox3.ListIndex >-1
Gruß Matthias...
Dim zae1 As Integer
For zae1 = 1 To 3
With UserForm1.Controls("ComboBox" & zae1)
If .Value = "" Then MsgBox "Bitte machen Sie alle Angaben": Exit Sub
End With
Next zae1
...
With UserForm_KS_Angaben
If .ComboBox_Name1.Value = "" Or _
.ComboBox_Ware.Value = "" Or _
.ComboBox_Dienstleistung.Value = "" Then
MsgBox "Bitte machen Sie alle Angaben!": Exit Sub
End If
End With
...
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen