Hallo,
ich möchte einen flexiblen Bereich einfärben. Das ganze funktioniert auch wie gewünscht sieeh fachfolgender Code. Allerdings mit Select.
Das möchte ich in Zukunft eigentlich vermeiden.
Währe nett, wenn mir das jemand kurz umbauen bzw. einen Ansatz zeigen könnte.
Vielen Dank im Voraus. Gruß Climbi
Range(Cells(Tag + 2, Spalte), Cells(Tag + 2, Spalte + 2)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
End With