Aussehen (Status) Togglebutton auf UF
12.12.2013 10:52:56
David
ich habe ein Formular, mit welchem ich per ToggleButton Blätter ein- und ausblenden lasse.
Beim Aufruf des Formulars soll der jeweilige Button mit dem Status des Blattes belegt werden, wenn das Blatt ausgeblendet ist, soll der Button also gedrückt erscheinen.
Meiner Meinung nach müsste das so gehen:
Private Sub UserForm_Initialize()
Buchungen.Value = Not (Worksheets("Buchung1").Visible)
Info.Value = Not (Worksheets("Info").Visible)
End Sub
Private Sub Buchungen_Click()
Worksheets("Buchungsbeleg").Visible = Not (Buchungen.Value)
Worksheets("Buchung2").Visible = Not (Buchungen.Value)
Worksheets("Buchung1").Visible = Not (Buchungen.Value)
End Sub
Private Sub Info_Click()
Worksheets("Info").Visible = Not (Info.Value)
Worksheets("Struktur").Visible = Not (Info.Value)
Worksheets("Doku").Visible = Not (Info.Value)
End Sub
Mache ich was falsch und wenn ja, wie geht es besser?
Danke und Gruß
David
Anzeige