Änderung auf eine von 3 Option-But. erkennen
31.07.2003 09:20:00
Peter T
habe eine UserForm in der ich eine Gruppe mit 3 OptionButtons habe einen Weiter und einen Abbrechen Button, nun möchte das der Weiter-Button nur dann aktiviert wird wenn eine der 3 OptionButton gewählt ist.
In meinem User-Form steht folgender Code (das Aktiv werden des Weiter-Button funktioniert aber nicht !
Bitte um Hilfe
Danke
Peter
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Left(Ctrl.Name, 6) = "Option" Then
If Ctrl = True Then
Schlwahl_1 = Ctrl.Caption
End If
End If
Next Ctrl
Unload Schlue_4
If Schlwahl_1 = "12" Then
Schlue_5_12.Show
ElseIf Schlwahl_1 = "10" Then
Schlue_5_10.Show
ElseIf Schlwahl_1 = "8" Then
Schlue_5_8.Show
End If
End Sub
Private Sub UserForm_Initialize()
Label5.Caption = Gruppenwahl_1
Label6.Caption = Klassenwahl_1
Label7.Caption = ABwahl_1
Label9.Caption = AnzMannschwahl_1
End Sub
Private Sub OptionBut1_Change()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Left(Ctrl.Name, 6) = "Option" Then
If Ctrl = True Then
Schlwahl_1 = Ctrl.Caption
End If
End If
Next Ctrl
cmdOK.Enabled = (Schlwahl_1.Value > 7)
End Sub
Anzeige