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"