hallo freunde haben einen vba code für ein makro türkis und rot.

ich möchte jetzt noch die farben, gelb, hellgrün und rosa bei diesem vba code dazu ergänzt haben wenn möglich.

kann mir jemand diesen code ergänzen. das wäre wunderbar. die texte die fett geschrieben sind habe ich in dem code eingetragen was die farben und farbnummern betrifft.

===================================================================================================================

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 akt_Zeile As Long

Dim akt_Spalte As Long

Dim StartSpalte, EndeSpalte As String 'Abschnittsbereich

Dim Bereich As String

Dim rot, tuerkis, gelb, hellgruen, rosa, default As Long

'***********************

'Vom User anpassbar

StartSpalte = "A"

EndeSpalte = "Z"

rot = 3

tuerkis = 28

gelb = 6

hellgruen = 4

rosa = 7

default = -4142

'***********************

akt_Zeile = ActiveCell.Row

akt_Spalte = ActiveCell.Column

Bereich = StartSpalte & akt_Zeile & ":" & EndeSpalte & akt_Zeile

Range(Bereich).Activate

Range(Bereich).Select

' MsgBox Selection.Interior.ColorIndex & " " ' auskommentieren und man bekommt den Wert der aktuellen Hintergrundfarbe ausgegeben

If (Selection.Interior.ColorIndex = default) Then

Selection.Interior.ColorIndex = tuerkis 'auf tuerkis

Else

'wenn rot

If (Selection.Interior.ColorIndex = rot) Then

Selection.Interior.ColorIndex = tuerkis 'auf tuerkis

Else

Selection.Interior.ColorIndex = rot 'ansonsten auf rot

End If

End If

Selection.Interior.Pattern = xlSolid ' Rahmenart

ActiveSheet.Cells(akt_Zeile, akt_Spalte).Select

End Sub

 =============================================================================================================================

für eine lösung wäre ich sehr dankbar. bitte wenn möglich um ergänzung des codes. besten dank.

walter5