Userform Change Event ?
22.12.2017 11:06:58
Nati
habe eine Userform, möchte, dass man den "OK" button nur betätigen kann, wenn mind ein optionbutton ausgewählt ist
, habe auch schon den Code;
Private Sub UserForm_Activate()
Dim zähler As Long
zähler = 0
Dim i As Long
For i = 1 To 17
If Workbook_Open_Pop_Up.Controls("OptionButton" & i).Value = True Then
zähler = zähler + 1
End If
Next i
If zähler > 0 Then
Workbook_Open_Pop_Up.CommandButton1.Enabled = True
End If
If zähler = 0 Then
Workbook_Open_Pop_Up.CommandButton1.Enabled = False
End If
End Sub
bloß brauche ich das passende "Change event"- bei userform.activate klappt es nicht, da es nur am anfang ausgeführt wird und dabei noch keine optionbuttons geklickt sind...