Hallo Ihr Lieben,

ich brauche etwas Hilfe.
Ich benötige mehr als 3 bed. Formatierungen. Ich hab auch schon Code dazu gefunden, mir fehlen jetzt nur ein paar Randbedingungen die ich mit der "normalen" Bedingten Formatierung kein Problem waren.

Bis jetzt hab ich folgendes:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
    Dim Bereich As Range 
    Dim rngZelle As Range 
    Set Bereich = ActiveSheet.Range("1:1") 
        
    For Each rngZelle In Bereich 
        Select Case rngZelle 
            Case "1" 
                rngZelle.Interior.Color = RGB(255, 0, 0) 
            Case "2" 
                rngZelle.Interior.Color = RGB(0, 255, 0) 
            Case "3" 
                rngZelle.Interior.Color = RGB(0, 0, 255) 
            Case "4" 
                rngZelle.Interior.Color = RGB(255, 255, 0) 
            Case "5" 
                rngZelle.Interior.Color = RGB(0, 255, 255) 
            Case "test" 
                rngZelle.Interior.Color = RGB(0, 255, 255) 
            Case Else 
                rngZelle.Interior.ColorIndex = xlNone 
        End Select 
    Next 
End Sub 

Es wird also die 1. Zeile formatiert. Wenn ich jetzt aber darüber noch eine Zeile einfüge, geht das ja nicht mehr... wie bekomm ich sowas hin?

Außerdem möchte ich dass die Zelle direkt darunter in der gleichen Farbe eingefärbt wir - steh aber irgendwie aufm Schlauch


Vielen Dank für Eure Hilfe
Gruß
_heike_