Spalten ein/ausklappen mit Farbenänderung
13.02.2017 11:18:23
Peter
Ich habe diesen, folgenden Code, der mit die Spalten auf-/ und zuklappt.
Nun möchte ich jedoch das gleichzeitig ein Tooglebutton2 mit diesem auf-/zuklappen die Farbe von rot / grün ändert.
Script zum auf und zuklappen, funktioniert, hier noch irgendwie die Farben reinpacken:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Doppelklick in B6:B36, klappt die Spalten C und D aus, oder wieder ein
If Not Intersect(Target, Range("B6:B36")) Is Nothing Then
Columns("C:D").Hidden = Not Columns("C:D").Hidden
Range("A1").Select
End If
End Sub
Ich denke, irgend wie hier müssen die unten stehenden Farben rein:
Columns("C:D").Hidden = Not Columns("C:D").Hidden
ToggleButton2.BackColor = RGB(0, 255, 0) 'hellgrün
ToggleButton2.BackColor = RGB(255, 153, 204) 'hellrot
Kann mir jemand auf die Sprünge helfen?
Danke und viele Grüsse,
Peter