Zelle mit akt. Datum finden und select
30.09.2005 11:23:21
Heribert
im Archiv habe ich nach einer Lösung für mein Problem gesucht, konnte aber diese alle nicht bei mir anwenden.
In meiner tab. stehen in Spalte A13 bis A378 Datumsangaben fortlaufend.
In A13 steht das Datum als Datum. Die nachfolgenden Zeilen erhalten das Datum über =A13+1, usw. Das eingestellte Format ist :TTT TT.MM.JJJJ
Lässt sich die Zeile mit dem aktuellen Datum so vielleicht gar nicht finden?
Die Formatierung soll beibehalten werden.
Dankeschön für eure Hilfe
Gruss Heribert
ps: so funktionierte es nicht ?
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 13 To 378
If Cells(i, 1).Text = Format(Date, "TTT TT.MM.JJJJ") Then
Cells(i, 1).Select
Exit For
End If
Next i
End Sub
Anzeige