Abfrage des Datum mit Vergelich in Tabelle
15.02.2007 08:11:00
Robert
Ich habe eine Tabelle; in Spalte A stehen untereinander die Tagesdaten....
Beispiel
15.02.2007
...nun hab ich mir ein Makro gefertigt, welches beim öffnen der Datei automatisch zum Tagesdatum springen soll.
Das funktionierte im vergangenen Jahr hervorragend....
Nun schaut es so aus, das dieses Makro leider nicht mehr geht.
Lasse ich nach dem aktuellen Datum suche, so wird immer der 15.12.2007 (also Datum plus 10 Monate) angesprungen.
Nachfolgend das Makro......
*******************
Sub Box()
' Fehlermeldungen ausschalten
Application.DisplayAlerts = False
'nun das aktuelle Datum suchen
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveWindow.SmallScroll Down:=4
Selection.Font.ColorIndex = 3
' schleife
' das makro "schleife" soll nach dem Anspringen des Feldes das Datum für kurze Zeit farbig darstellen, damit es auffällt
End Sub
Anzeige