Hallo Helfer,
ich habe folgenden Code, welcher auch einwandfrei funktioniert:
Returns.Select
Range(Cells(DatumAr - ArPeriod, a), Cells(DatumAr + ArPeriod, a)).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Returns ist ein vorher definiertes ExcelSheet. Nun meine Frage: Wie kann ich den Code schreiben ohne das lästige Select zu benutzen? Das Makro dauert nämlich ne halbe Ewigkeit.
Vielen Dank,
Petra