Makro kürzen

Question

Hallo miteinander,

habe folgendes Makro mit dem Rekorder aufgezeichnet.
Da ich kein VBAner bin, denke ich dass der Code noch kürzer gestaltet werden kann.
Hat jemand eine Idee ob das geht und wenn ja - Wie ?

Sub Makro1()
Range("F2:F30").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MONAT(F2)=MONAT(HEUTE())"
Selection.FormatConditions(1).Interior.ColorIndex = 34
Range("A1").Select
End Sub

MfG
Odje

Answer 1

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]

Answer 2

Hallo Oliver,

danke für deine Mühe.

Ich wünsche noch einen schönen Sonntag.

Odje

Answer 3

Hallo Odje,

gerne geschehen. Danke auch für die Rückmeldung und ebenfalls noch ein schönes WE.

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]