Herbers Excel-Forum - das Archiv

hiiiilfe, kleine änderung im vba code bitte

Bild

Betrifft: hiiiilfe, kleine änderung im vba code bitte
von: carsten

Geschrieben am: 17.02.2005 11:15:21
hallo,
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

Bild

Betrifft: AW: hiiiilfe, kleine änderung im vba code bitte
von: Mac4
Geschrieben am: 17.02.2005 11:22:21
So sollte es gehen:
If Intersect(Target, Range("A1:B5,F1:H5 ")) Is Nothing Then Exit Sub
Marc
Bild

Betrifft: AW: hiiiilfe, kleine änderung im vba code bitte
von: Kurt
Geschrieben am: 17.02.2005 11:25:35
If Intersect(Target, Range("A1:B5,F1:H5")) Is Nothing ....
Bild

Betrifft: superschnelle hilfe, und funz natürlich.
von: carsten
Geschrieben am: 17.02.2005 11:33:02
danke
 Bild