ich möchte gern in Spalte C18:C100 nach dem ersten Datum des aktuellen Monats suchen und in diese Zelle springen. Bzw. wäre es schön, wenn diese Zelle ganz oben links im Programmfenster wäre.
In den Zellen steht ein Datum, welches als Jahr (JJJJ) formatiert ist.
Mit normalem Datum bekomme ich es hin, mit dem Monat klappt es irgendwie nicht.
Kann mir bitte jemand helfen?
Sub Monat()
Dim zelles As Range
Dim bereichs As Range
Dim AktMonat As Date
'AktMonat = Format(month(Now()), "MMMM")
AktMonat = month(Now())
Set bereichs = Sheets("2013").Range("c18:c100")
Set zelles = bereichs.Find(what:=AktMonat, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If
End Sub
Grüße
Vat