Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage des Datum mit Vergelich in Tabelle

Abfrage des Datum mit Vergelich in Tabelle
15.02.2007 08:11:00
Robert
Abfrage des Datum mit Vergleich in einer Tabellesoll heissen:
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage des Datum mit Vergelich in Tabelle
15.02.2007 10:33:13
Heiko
Hallo Robert,
generell liegt es daran das du ab After:=ActiveCell suchst, also z.B. von der Zelle mit dem 15.02.2007 aus. Dem kann man abhelfen indem du dein Makro so veränderst.

Sub Box()
' Fehlermeldungen ausschalten
Application.DisplayAlerts = False
'nun das aktuelle Datum suchen
MsgBox Date
Cells.Find(What:=Date, After:=ActiveSheet.Range("A1"), 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

Was komisch bleibt ist das er den 15.12.2007 als gleich zum 15.02.2007 erkennt, warum das so ist weis ich auch nicht.
Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige

234 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige