Hallo zusammen,
ich bastele im Moment an einem kleinen Makro um mir das Finden der richtigen Zeile in einer größeren Datei zu erleichtern.
Was ich möchte.
Per Klick auf einen Button soll die Zeile mit dem aktuellen Datum markiert werden.
Mein bisheriger Code.
Sub mark_today()
Dim SearchFor As String
Dim rng As Range
SearchFor = Date
Set rng = ActiveSheet.Range("D:D").Find(SearchFor)
rng.EntireRow.Select
End Sub
Mein Problem.
Beim klicken auf den Button kriege ich die Meldung "Objektvariable oder With-Blockvariable nicht festgelegt."
Wenn ich eine MsgBox mit der Ausgabe anzeigen lasse ("MsgBox rng,Address") kriege ich auch eine korrekte Ausgabe.
Schonmal vielen Dank für die Hilfe im Voraus!
Gruß
Flo
|