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
Grundsätzlich scheint das auch zu funktionieren, der Button bekommt solch einen "Grauschleier", wenn das Blatt ausgeblendet ist, aber tatsächlich ist der Button nicht gedrückt, d.h. dieser "eingesunkene" Effekt ist nicht zu sehen. (ich hoffe, das ist lt. meiner Beschreibung verständlich).Mache ich was falsch und wenn ja, wie geht es besser?
Danke und Gruß
David