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 haben.

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