Ich habe folgendes Makro und möchte, dass es mir nur folgende Bereiche ("D172:G173", "D248:G256") formatiert. Zur Zeit besteht das Problem, dass es mir dann alle zellen zwischen D172 und G256 formatiert und nicht nur die im Raster.
Kann mir jemand helfen?
Vielen Dank.
Sub Formatierung_der_Monate()
' Formatiert Zahlen und Farben nach den Quartal
Dim sSheet As Variant, iQuartal As Integer, c As Range
iQuartal = Sheets("Steuerung").Range("D7")
Application.ScreenUpdating = False
For Each sSheet In Array("HR Cockpit")
With Sheets(sSheet)
For Each c In Sheets(sSheet).Range("D172:G173", "D248:G256").Cells
With c
If .Column