'-------------------------------------------------- Hauptfunktion
Sub einfaerben()

'variablen definieren------------
Dim farbe As String
Dim grenzwert As Double
Dim hoehe As Integer
Dim laenge As Integer
Dim starte_hier As String
Dim lese_zahl As Double

'variablen einlesen---------------------------
farbe = ActiveWorkbook.Worksheets("BLATT_A").Range("B1").Value
grenzwert = ActiveWorkbook.Worksheets("BLATT_A").Range("B2").Value
hoehe = ActiveWorkbook.Worksheets("BLATT_A").Range("B3").Value
laenge = ActiveWorkbook.Worksheets("BLATT_A").Range("B4").Value
starte_hier = ActiveWorkbook.Worksheets("BLATT_A").Range("B5").Value

Range(starte_hier).Select
For k = 1 To hoehe
    For i = 1 To laenge
        lese_zahl = ActiveCell.Value
        MsgBox lese_zahl
        If lese_zahl > grenzwert Then
            Call setze_farbe(farbe)
        End If
        ActiveCell.offset(0, 1).Select
        If i = laenge Then
            ActiveCell.offset(1, -laenge).Select
        End If
    Next i
Next k
End Sub

'-------------------------------------------------- Funktion um Farbe zu setzen
Sub setze_farbe(farbe As String)
If farbe = "gelb" Then
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
'Else
ElseIf farbe = "blau" Then
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent5
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End If
End Sub