hi

meinst du so?

Sub Makro1()
    Dim Zelleeins As Range
    Dim Zellezwei As Range
    Set Zelleeins = Range("A2")
    Set Zellezwei = Range("A3")
    Tabelle1.Range(Zelleeins, [Zellezwei]).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65735
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub