Checkbox warten bis gecheckt
03.01.2023 20:11:26
Claus
in dem folgenden Code einer UserForm soll folgendes passieren:
Wenn CommandButton1 gecklickt wird, prüfen ob Checkbox2 = True dann prüfen ob CheckboxAW und CheckboxNEW True ist und wenn nicht die Schrift Rot machen.
Das funktioniert soweit.
Aber ich komme nicht drauf wie ich es hinbekomme, das wenn ich dann nochmal Command Button 1 drücke, er wieder anfängt die bedingungen erneut zu prüfen ( damit er dann wenn einer der beiden gecheckt ist das Else ausführt).
Könnt Ihr mir vielleicht einen Tipp geben?
Option Explicit
Public Sub Userform_Activate()
Label1 = "Kunde: " & Modul3.sKName & vbCr & "Test: " & Modul3.sKAdresse & vbCr & "E-Mail: " & Modul3.sKMail
End Sub
Public Sub CommandButton1_Click()
If CheckBox2 = True Then
If Not CheckBoxAW = True Or CheckBoxNEW = True Then
Me.LblAuswahl.ForeColor = RGB(255, 0, 0)
Me.CheckBoxNEW.ForeColor = RGB(255, 0, 0)
Me.CheckBoxAW.ForeColor = RGB(255, 0, 0)
Else
Modul3.c1Click = True
Unload Me
End If
End If
End Sub
Public Sub CommandButton2_Click()
Modul3.c2Click = True
Unload Me
End Sub
Public Sub CheckBox1_Click()
Modul3.cbx1Click = True
End Sub
Public Sub CheckBox2_Click()
Modul3.cbx2Click = True
End Sub
Public Sub CheckBox3_Click()
Modul3.cbx3Click = True
End Sub
Public Sub CheckBoxNew_Click()
Modul3.cbxnewClick = True
End Sub
Public Sub CheckBoxAW_Click()
Modul3.cbxawClick = True
End Sub
Private Sub UserForm_Click()
End Sub