Datum suchen

Sub datum_suchen()
' sucht das aktuelle Tagesdatum in einer Spalte
' (hier A) und selektiert es
' Klaus-Dieter Oppermann
Dim dat As Date                     ' Variable deklarieren
z = 1                               ' Startzeile festlegen (hier 1)
dat = Format(Now(), "dd/mm/yyyy")   ' Datumformat definieren
Do While Cells(z, 1) <> dat         ' Datum suchen
    z = z + 1                       ' Schleifenzähler um 1 erhöhen
Loop                                ' Wendepunkt für Schleife
Cells(z, 1).Select                  ' Datum selektieren
End Sub