Zellen mit Makro einfärben
25.11.2016 08:33:03
Andreas
ich habe ein Makro aufgezeichnet, um Zellen die ich markiere, mit Mausklick einzufärben (je Farbe ein Makro). Allerding ist das Problem, dass bei der Aufzeichnung die markierten Zellen gefärbt werden. Ich möchte natürlich die Zellen im Blatt einfärben die ich jeweils auswähle und nicht nur A1:C1
Sub Gelb()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.Offset(10, -7).Range("A1:C1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Ich hoffe ich habe mich halbwegs verständlich ausgedrückt.
Andreas