Toogle Button caption bei Klick ändern

[DieMarie]

Hallo,

ich habe hier einen ToggleButton der zum Umschalten zwischen 2 Zuständen dient.

Er hat anfangs die Caption "Zustand 1". Wenn er geklickt wird nimmt er "Zustand 2" an.

Problem - wenn man ihn nochmal klickt soll er wieder zurück auf "Zustand 1" springen.


geht das?

[Klaus-Dieter]

Hallo,

das geht so:

Code:

Option Explicit

Private Sub togglebutton1_Click()
   If ToggleButton1.Value = True Then
       ToggleButton1.Caption = "Einblenden"
       Rows("7:7").EntireRow.Hidden = True
       ToggleButton1.TripleState = True
       ToggleButton1.BackColor = &HC000&
   Else
       ToggleButton1.Caption = "Ausblenden"
       Rows("7:7").EntireRow.Hidden = False
       ToggleButton1.TripleState = False
       ToggleButton1.BackColor = &HFF&
   End If
End Sub

[DieMarie]

Vielen Dank, funktioniert perfekt :)