Userform Toggle Button rücksetzen
04.08.2008 21:13:00
SteffenS
ich habe in einer Userform mehrere Toggle Buttons.
Wenn ich einen Button auswähle so möchte ich das die anderen deaktiviert (.value=False) werden.
Wie bekomme ich dies hin ohne das die gedrückte Schaltfläche auch deaktiviert wird.
Ich habe es mit:
Private Sub reset_button(bname As String)
Dim mn As control
For Each mn In Me.Controls
If mn.Name Like "pb_*" Then
If mn.Name bname Then
If Me.Controls(mn.Name).Value = True Then Me.Controls(mn.Name).Value = False
Else
Me.Controls(mn.Name).Value = True
End If
End If
Next
End Sub
versucht, aber leider geht dies nur in eine Richtung.
Danke im Voraus.
Steffen Schmerler
Anzeige