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

Beiträge aus den Excel-Beispielen zum Thema "Zeilen anzeigen und löschen"