Datum suchen
26.07.2003 14:19:05
eckhard
ich benutze eine Tabelle, bei der in den einzelnen Zellen der Spalte A jeweils ein Datum (tt.mm., also zB 26.07.) steht.
Mein Wunsch ist es, dass ich eine beliebige Zelle der Spalte A markiere, dann das nachfolgende Makro ausführe und der Cursor zu der Zelle springt, in der (von A1, A2, A3 ... ausgehend) das Datum der markierten Zelle zum ersten Mal erscheint.
Hierzu verwende ich folgendes Makro:
x = ActiveCell.Column
y = ActiveCell.Row
T$ = ActiveCell.Value
Cells(1, 1).Activate
On Error Resume Next
Cells.Find(What:=T$, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 0).Range("A1").Select
If ActiveCell = Empty Then
Range("A1").Select
End If
Dieses Makro funktioniert einwandfrei, wenn in der aktiven Zelle eine einfache Zahl (zB 1200) steht. Es funktioniert nicht bei einem zu suchenden Datum.
Für Hinweise, wie ich das Makro anpassen kann, damit es auch nach einem Datum suchen kann, wäre ich sehr dankbar.
Vielen Dank
Eckhard