Options-Buttons überprüfen
15.08.2014 08:48:35
Hendrik
ich habe in einem Userform eine Reihe von Options-Buttons. Abhängig davon, welcher aktiviert ist, sollen Reiter einer Multiseite im gleichen Userform aktiviert/deaktiviert werden. Somit habe ich für jeden Options-Button diesen Code zum Aufruf der Prozedur reiterAktivieren.
Private Sub optSQL_Change()
Call reiterAktivieren
End Sub
Private Sub reiterAktivieren()
If optWertebereich.Value = True Then
MultiPage1.Pages(1).Enabled = True
MultiPage1.Pages(2).Enabled = True
MultiPage1.Pages(3).Enabled = False
ElseIf optTabellenvergleich.Value = True Then
MultiPage1.Pages(1).Enabled = False
MultiPage1.Pages(2).Enabled = False
MultiPage1.Pages(3).Enabled = True
ElseIf optStandabfrage.Value = True Then
MultiPage1.Pages(1).Enabled = False
MultiPage1.Pages(2).Enabled = False
MultiPage1.Pages(3).Enabled = False
ElseIf optSQL.Value = True Then
MultiPage1.Pages(1).Enabled = False
MultiPage1.Pages(2).Enabled = False
MultiPage1.Pages(3).Enabled = False
End If
End Sub
Danke und Grüße
Hendrik