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
|