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
...