es war jemand so nett und hat mir die farben ergänzt.

ich würde noch die farbe blau und orange benötigen.

wie komme ich zu den farben?

danke schon vorab.

Das war der VBA Code:

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