ich habe mir folgenden VBA-Code zusammengebastelt. Leider funktioniert dieser nicht ganz.
Im Excel habe ich 2 mal je 4 Spalten für eine Quartalsberechnung (x14:aa62,be14:bh62).
Im Register ("Steuerung").Range("B2") schriebe ich dann das aktuelle Qurtal rein. Jetzt möchte ich, dass das aktuelle Quartal Fett ist und die kommmenden Grau hinterlegt werden und die vergangenen normal schwarz sind.
Jedoch funktioniert mir der zweite Teil nicht, wo ich sage was ich fett haben möchte.
Hoffe jemand kann mir hier helfen oder sieht gleich den Fehler.
Vielen vielen Dank.
Sub Quartal_Formatierung_Monate()
Dim sSheet As Variant, iQuartal As Integer, c As Range
Dim iOffset As Integer
iQuartal = Sheets("Steuerung").Range("B2")
Application.ScreenUpdating = False
'For Each sSheet In Array For Each sSheet In Array("Sheet1", "Sheet2")
With Sheets(sSheet)
For Each c In .Range("x14:aa62,be14:bh62").Cells
With c
If .Column