ToggleButton + Hidden-Funktionalität
19.12.2007 14:51:37
Markus
ich bitte um Eure Lösungen bzw. Anmerkungen:
Ich benutze einen ToggleButton, um Spalten in einem Worksheet ein- oder auszublenden.
Zu Beginn sind die Spalten sichtbar, der Button ist in der nicht-aktivierten Stellung mit "Ausblenden" beschriftet. Beim Klicken auf den Button werden die Spalten ausgeblendet, und die Beschriftung wechselt zu "Einblenden".
Ich verwende folgenden Code:
Private Sub ToggleButton1_Click()
Sheets("Tabelle2").Range("P:S").EntireColumn.Hidden = ToggleButton1.Value
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Einblenden"
Else
ToggleButton1.Caption = "Ausblenden"
End If
End Sub
Kann ich den Ausgangsstatus ändern? Das heisst, ist der Button nicht aktiviert, sollen die Spalten ausgeblendet sein, und die Beschriftung "Einblenden". Ist der Button gedrückt, dann sind die Spalten eingeblendet und der Text soll "Ausblenden" lauten.
Vielen Dank für Eure Mithilfe!
Markus