leider finde ich im Archiv nicht das, was ich suche und muss euch schon wieder belästigen.
Ich habe eine UserForm. Hier werden Kundendaten eingegeben. Jetzt habe ich eine Abfrage, die meinen OK-Button auf Enabled=False (inaktiv) setzt bis alle TextBox-Felder ausgefüllt sind.
Sub Ausgefuellt()
'Prüfen ob alle Anlagen-Daten eingetragen
'Sonst ist OK.Button Enabled = False (Inaktiv)
If MFU_Auswahl.TextBox1.Value <> "" Then
If MFU_Auswahl.TextBox2.Value <> "" Then
If MFU_Auswahl.TextBox3.Value <> "" Then
If MFU_Auswahl.TextBox4.Value <> "" Then
If MFU_Auswahl.ComboBox1.Value <> "" Then
MFU_Auswahl.OK.Enabled = True
Else
MFU_Auswahl.OK.Enabled = False
End If
Else
MFU_Auswahl.OK.Enabled = False
End If
Else
MFU_Auswahl.OK.Enabled = False
End If
Else
MFU_Auswahl.OK.Enabled = False
End If
Else
MFU_Auswahl.OK.Enabled = False
End If
End Sub
Jetzt muss ich aber noch eine Abfrage mit rein bringen, dass mindestens 1 CheckBox ausgewählt wurde.
Solange dies nicht erfolgt, soll der OK-Button auch noch inaktiv sein.
ODER
Kann ich eine Abfrage starten, bei Drücken von OK, dass mindestens 1 CheckBox (1 von 22) ausgewählt wurde. Wenn nicht, soll eine MsgBox kommen mit "Fehler - Bitte mindestens 1 CheckBox auswählen"
Vielen Dank schon mal für Eure Mühen!
Gruß Marc