Mit Togglebutton Zellen färben
22.02.2016 13:15:31
Mario
ich verzweifle gerade mal wieder in der Arbeit. Ich möchte eine Zelle per Togglebutton bei aktivierung von ROSA auf ORANGE färben. Und andersrum, wenn ich den Togglebutton wieder deaktiviere, also auf Stellung 2 Schalte, soll die Zelle wieder die Ursprüngliche Farbe annehmen (also rosa).
Ich habe das organge einfärben und wieder rosa zurückfärben bereits mit dem Makrorekorder aufgenommen, jedoch schaffe ich es einfach nicht, das korrekt auf den Togglebutton zu übertragen. Hier das Makro:
Sub colour()
' colour Makro
Range("G14:H14").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("G14:H14").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-9
Range("A3").Select
End Sub
Verknüpfe ich das Makro so mit dem Togglebutton und aktiviere ihn, färbt sich die gewünschte Zelle für eine Zehntel Sekunde orange und dann sofort wieder auf rose. Mein Ziel: Schaltfläche aktiv/on, Zelle = orange
Schaltfläche inaktive/off, Zelle = wieder rosa (bzw. rückgängig)
Bitte helft mir. Gruß Mario