Toggle Button - Sheet Name
22.08.2020 10:20:06
Marko
ich komm einfach nicht weiter. Über ein ToggleButton möchte ich nach der Eingabe von Werten in eine Tabelle, diese Tabelle mit dem Namen aus der Zelle B4 (=VERKETTEN("KT_";B5;" ";B2) benennen. Die Farben sollen sich ebenfalls mit dem Drücken des Buttons von Rot (True) in Grün (False) ändern. Warum funktioniert dieses Makro nicht?
Private Sub ToggleButton5_Click()
If ToggleButton5.Value = True Then
ActiveSheet.Name = ActiveSheet.Range("B4").Value
ToggleButton5.TripleState = True
ToggleButton5.BackColor = 255
Else
ToggleButton5.TripleState = False
ToggleButton5.BackColor = 49152
End If
End Sub