VBA - Zeile färben
26.12.2008 11:24:00
WalterK
folgenden Code habe ich in der Recherche gefunden, er markiert von A bis D die aktive Zeile.
Ich sollte folgende Änderungen haben, die ich selbst nicht hinbekomme:
Mein Gültigkeitsbereich geht von A2:N10000 und von T2:AZ10000
d.h. im Bereich O:S soll nichts passieren.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
Set bereich = Range("a2:d100") 'Gültigkeitsbereich
If Not Intersect(Target, bereich) Is Nothing Then
bereich.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.ColorIndex = 36
End If
End Sub
Besten Dank im voraus
und Servus, Walter