Farbzuweisung
23.01.2005 16:16:28
Alexander
habe folgendes script:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set rng = Sheets("Tabelle1").Range("B:B").Find(Target)
If Not rng Is Nothing Then
Target.Interior.ColorIndex = rng.Offset(0, 2).Interior.ColorIndex
End If
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub
möchte als Ziel nicht nur Spalte 2 sondern mehrere Spalten
Anzeige