Sub mit_farben_makro_arbeiten()
Call farbe_setzen("farben", "C10", "dunkelrot") ' Range(bereich).Interior.Color = 192
Call farbe_setzen("farben", "C11", "rot") ' Range(bereich).Interior.Color = 255
Call farbe_setzen("farben", "C12", "orange") ' Range(bereich).Interior.Color = 49407
Call farbe_setzen("farben", "C13", "gelb") ' Range(bereich).Interior.Color = 65535
Call farbe_setzen("farben", "C14", "hellgrün") ' Range(bereich).Interior.Color = 5296274
Call farbe_setzen("farben", "C15", "dunkelgrün") ' Range(bereich).Interior.Color = 5287936
Call farbe_setzen("farben", "C16", "hellblau") ' Range(bereich).Interior.Color = 15773696
Call farbe_setzen("farben", "C17", "dunkelblau") ' Range(bereich).Interior.Color = 12611584
Call farbe_setzen("farben", "C18", "lila") ' Range(bereich).Interior.Color = 10498160
Call farbe_setzen("farben", "C19", "weiss") ' .ThemeColor = xlThemeColorDark1
Call farbe_setzen("farben", "C20", "schwarz") ' Range(bereich).Interior.Color = xlThemeColorLight1
End Sub



Sub farbe_setzen(blatt As String, bereich As String, farbe As String)


Sheets(blatt).Select
Range(bereich).Select

If farbe = "dunkelrot" Then
    Range(bereich).Interior.Color = 192
ElseIf farbe = "rot" Then
    Range(bereich).Interior.Color = 255
ElseIf farbe = "orange" Then
    Range(bereich).Interior.Color = 49407
ElseIf farbe = "gelb" Then
    Range(bereich).Interior.Color = 65535
ElseIf farbe = "hellgrün" Then
    Range(bereich).Interior.Color = 5296274
ElseIf farbe = "dunkelgrün" Then
    Range(bereich).Interior.Color = 5287936
ElseIf farbe = "hellblau" Then
    Range(bereich).Interior.Color = 15773696
ElseIf farbe = "dunkelblau" Then
    Range(bereich).Interior.Color = 12611584
ElseIf farbe = "lila" Then
    Range(bereich).Interior.Color = 10498160
ElseIf farbe = "weiss" Then
    Range(bereich).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
ElseIf farbe = "schwarz" Then
    Range(bereich).Interior.Color = xlThemeColorLight1
End If
Range("C9").Select
End Sub