Hallo Odje,
da kann man nicht viel kürzen. Das einzige wäre die Select-Anweisungen zu entfernen. Das Ganze sähe dann wie folgt aus:
Sub Makro1()
With Range("F2:F30")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MONAT(F3)=MONAT(HEUTE())"
.FormatConditions(1).Interior.ColorIndex = 34
End With
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]