Doch, das geht. Habe vergessen den Teil des Codes anzupassen, den es betrifft:

also z. B.

With Tabelle1.Range(Zelleeins & ":" & Zellezwei).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65735
        .TintAndShade = 0
        .PatternTintAndShade = 0
End With

oder z. B.

With Tabelle1.Range(Range(Zelleeins), Range(Zellezwei)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65735
        .TintAndShade = 0
        .PatternTintAndShade = 0
End With