Hallo,

probier's mal hiermit, dazu vielleicht noch einige Stichwörter (clickIt); nicht nur für höhere Excel-Versionen empfiehlt sich übrigens die Verwendung der Color -Eigenschaft:

Option Explicit

Selektieren

Variablendeklaration

ungar. Notation

Option Explicit

Public Sub ColourSwitch()
'**************************************************************************************
'**   wechselt die Hintergrund-Farbe der aktuellen Zeile (aus best. Abschnittsbereich)
'**   in der Zeile, in der sich der Cursor befindet
'**   Farben koennen beliebig angepasst werden
'**   dynamische Anpassung des Script V0.2
'**************************************************************************************
Dim lngAkt_Zeile As Long, lngAkt_Spalte As Long

Dim strStartSpalte As String, strEndeSpalte As String '// Abschnittsbereich

Dim strBereich As String

Dim lngRot As Long, lngTuerkis As Long, lngGelb As Long

Dim lngHellgruen As Long, lngRosa As Long, lngDefault As Long

'*******************************
'**  Vom User anpassbar
'*******************************
strStartSpalte = "A"

strEndeSpalte = "Z"

lngRot = &HFF&

lngTuerkis = &HFFFF00

lngGelb = &HFFFF&

lngHellgruen = &HFF00&

lngRosa = &HFF00FF

lngDefault = xlPatternNone '// -4142
'********************************

lngAkt_Zeile = ActiveCell.Row

lngAkt_Spalte = ActiveCell.Column

strBereich = strStartSpalte & lngAkt_Zeile & ":" & strEndeSpalte & lngAkt_Zeile

With Range(strBereich).Interior
'    MsgBox .Color & " " '// auskommentieren und man bekommt den Wert der aktuellen Hintergrundfarbe ausgegeben
    Select Case .Color
        Case Is = lngDefault: .Color = lngTuerkis '// wenn default >>> auf tuerkis
        Case Is = lngTuerkis: .Color = lngRot '// wenn tuerkis >>> auf  rot
        Case Is = lngRot: .Color = lngGelb '// wenn rot >>> auf gelb
        Case Is = lngGelb: .Color = lngHellgruen '// wenn gelb >>> auf hellgruen
        Case Is = lngHellgruen: .Color = lngRosa '// wenn hellgruen >>> auf Rosa
        Case Else: .Color = lngTuerkis '// sonst auf tuerkis
    End Select
    .Pattern = xlSolid ' Rahmenart
End With
End Sub

Gruß,