Guten Abend ,
ich habe in einer UserForm mehrere CheckBoxen über 30 st. ,diese werden unterschiedlich, je nach vorheriger Auswahl ( mit opt.Button Frau , Man) eingeblendet.
Jetzt möchte ich dass, wenn eine von den sichtbaren ChB nicht aktiv ist ein UF2 einblenden lassen sonst soll die Prozedur weiter laufen.
Dies habe ich so gemacht es funktioniert ist aber nicht das wahre.
'If chB_2.Visible = True And chB_2 = False Or chB_3.Visible = True And chB_3 = False Or chB_4.Visible = True And chB_4 = False Or chB_5.Visible = True And chB_5 = False _
'Or chB_6.Visible = True And chB_6 = False Or chB_7.Visible = True And chB_7 = False Or chB_9.Visible = True And chB_9 = False Or chB_10.Visible = True And chB_10 = False und so weiter ................. Then
So habe ich auch Versucht , bekomme aber Fehler Meldung ( else ohne if )
Dim myControl As Controls
For Each myControl In Taetigkeit.Controls
If TypeName(myControl) = "CheckBox" Then
If myControl.Visible = True Then
If myControl.Value = False Then
UserForm2.Show
End If
End If
End If
Next
Exit Sub
Else
UserForm3.Show
Wie kannte man es sonnst lösen ?
Danke für Eure Hilfe