hiiiilfe, kleine änderung im vba code bitte
17.02.2005 11:15:21
carsten
der code macht eine quasi bedingte formatierung, aber ich muss zusätzlich die range F1:H5 formatieren. die range entsprechend zu vergrössern klappt deshalb nicht, weil die eingaben in spalte c,d und e nicht betroffen sein dürfen.
kann jemand helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var
If Intersect(Target, Range("A1:B5")) Is Nothing Then Exit Sub
For Each Zelle In Target
If Zelle.Value = "" Then
Zelle.Interior.ColorIndex = xlNone
Else
var = Application.Match(Zelle.Value, Worksheets("Farbindex").Columns(1), 0)
Zelle.Interior.ColorIndex = Worksheets("Farbindex").Cells(var, 2)
Zelle.Font.ColorIndex = Worksheets("Farbindex").Cells(var, 3)
End If
Next Zelle
End Sub
Anzeige