wie kann ich mit einem Makro das aktuelle Datum in einer Spalte finden?
Vielen Dank
dieses Makro als Basis habe ich hier aus dem Forum - es muss also irgendwo im Archiv schlummern.
Code eingefügt mit Syntaxhighlighter 1.15
Sub DatumDidi()
' liest das Datum in Spalte B aus und plaziert den Zellzeiger
' angegebene Quelle: www.i-dietrich.de
Spalte = "B"
For Each a In ActiveSheet.Range(Spalte & "2:" & Spalte & "366")
If a = Date Then
zeile = a.Row
Exit For
End If
Next
On Error Resume Next
Application.Goto ActiveSheet.Cells(zeile, Spalte), True
If Err.Number <> 0 Then
MsgBox ("Das aktuelle Datum wurde nicht gefunden.")
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen