Zellen farbig
02.04.2006 12:31:59
bissi
Habe hier im Forum nachfolgen Code erhalten.
Ich möchte jetzt nach Suchergebnis die Färbung der Zellen aufheben.
Mein Gedanke, Klick in Zelle der Spalte A und alle Zellen der Tabelle
werden wieder weiß. Kann mir jemand den Code ergänzen.
mfg bissi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
With Cells
.Interior.ColorIndex = xlNone
End With
IntColor = 6
Cells(Target.Row, 1).Interior.ColorIndex = IntColor
Cells(Target.Row, 2).Interior.ColorIndex = IntColor
Cells(Target.Row, 3).Interior.ColorIndex = IntColor
End If
End Sub