Office: nach aktuellem Datum suchen

Hi,

wollte in einer Tabelle nach dem aktuellen Datum in Spalte A suchen.
Anschließend soll mir der Zelleninhalt verschiedener Zellen in der Zeile kopiert werden.
Ich scheitere Allerdings schon bei der Datumssuche.
Code:

Typen unverträglich.

:)

 

Hi Mario,

Code:

 

Hi


After:=Cells(1, 4)

darum! Typenunverträglich

aber danach hast du mit Sicherheit den nächsten Fehler!
der ist im letzten Post beschrieben.

 

Hallo mario,

Du kannst auch keine Suche in Zeile 1 nach der Zelle A4 beginnen.

Die Datumssuche mit Find ist ohnehin tückisch - zuverlässiger funktioniert dies mit der Arbeitsblattfunktion "Match".

Unvollständige Bezüge kommen noch dazu, siehe Chris' Hinweis.

Grüße
EarlFred

 

da is noch der Wurm drin.
Columns anstatt rows bringt mich auch net weiter. da kommen, wie schon erwähnt, weitere Fehler.*frown.gif*

wie könnte ein funktionierender Code aussehen?

 

Hallo mario,

unter Berücksichtigung der Hinweise von Karin, Chris und mir z. B. so:
Code:

Schaust Du Dir die erhaltenen Hilfestellungen nicht an und verarbeitest Du sie nicht? Das ist doch schade um die vergebene Möglichkeit, etwas zu lernen.

[Ergänzung]
Code mit der Arbeitsblattfunktion Match (=Vergleich):
Code:

[/Ergänzung]

Grüße
EarlFred

 

na klar schau ich mir das an und probier es nachzuvollziehen.
Dies klappt allerdings nicht immer.

Bei der ersten Variante die du im letzten Beitrag gepostet hast, wird kein Wert für die Variable aktdatum ausgegeben.--> "aktdatum =Nothing"

Wenn ich das richtig verstanden habe sollte hier die Zeilenzahl kommen in der das heutige Datum steht.

Auch bei deinem zweiten Code bleibt "aktdatum" leer und es kommt Fehlermeldung

sorry, komm nicht auf den Fehler.

 

Hi

lade eine Demo hoch!
Das Orginal aber ohne irgendwelchen Inhalt, alleine die Datumsspalte würde reichen.

 

Hallo mario,

das mag ich Dir nicht ganz abnehmen...

In solchen Fällen kann man mal einen Haltepunkt (F9) setzen und sich den Inhalt von aktDatum anschauen:
Code:

Ich vermute, die Variable enthält einen Fehlerwert. Die Mitteilung an uns, um welchen Fehlerwert es sich handelt, könnte ebenfalls weiterhelfen. Ich tippe mal auf Fehler 2042 (#NV).

Dass ich die Variable Datei1 zu Testzwecken (anders) befüllt habe, ist Dir aufgefallen? Diese Zeile löschen / auf Deinen Bedarf hin anpassen.

[Ergänzung]

Es grenzt schon an Zufall, wenn es einem gelingt, das gewünschte Datum mit FIND zu finden. Mein Hinweis zur Tücke dieser Methode bezogen auf Datumswerte kam ja nicht aus lauter Langeweile - das häufige Ergebnis, wenn man es dennoch damit versucht, hast Du zutreffend beschrieben.
[/Ergänzung]

Grüße
EarlFred

 

\@Chris
Hier mal ein Auszug aus der Mappe ("Datum Test.xls")

In Spalte A soll das aktuelle Datum gesucht werden. Und die Werte in den Spalten dahinter sollen kopiert werden.

Der Code steht in einem Modul einer anderen Mappe.
Die Mappe ("Datum Test.xls") wird im Code geöffnet.

@EarlFred

Wie schon erwähnt.
"aktDatum" hat den Wert "Nothing"

 

Hallo mario,

auf was genau bezieht sich diese Aussage? Kann ich nicht zuordnen. Meine Rückfragen sind dadurch auch nicht beantwortet. Meinen Hinweis darauf, dass das Auffinden von Datumswerten mit Find oftmals fehlschlägt (was zum Ergebnis aktDatum = Nothing führt...) habe ich ja nun hoffentlich oft genug und deutlich genug geäußert.

Bei Verwendung meines 2. Codes und korrekter Blattnamen wird das heutige Datum korrekt in Zeile 115 gefunden:
Code:

Eine Bitte für die Zukunft: Zu einer Fehlerbeschreibung gehört immer die Angabe der Codezeile, in der der Fehler auftritt sowie die Benennung des Fehlers (Fehlernummer / -beschreibung). Der Laufzeitfehler 9 "Index außerhalb des gültigen Bereichs" in der vorstehenden Zeile hätte einen eindeutigen Hinweis auf die tatsächliche Ursache des Problems gegeben. Deine anderen Hinweise waren hingegen lediglich irreführend.

Grüße
EarlFred

 

Hallo Mario

der Code von EarlFred geht einwandfrei.

ABER das Datum muss in Systemzeit formatiert sein *wink.gif*

TT.MM.JJJJ

dann geht es.

p.s den Pfad habe ich im Moment auf ActiveWorkbook... umgeändert das gehört natürlich wieder geändert!

 

Sorry für die ungenaue Fehlerbeschreibung*frown.gif*
Es lag nun tatsächlich an der Datumsformatierung.
Die Codes haben alle funktioniert.
Danke für eure Unterstützung.

btw.
wäre es möglich den Code unabhägig von der Datumsformatierung auszuführen?

 

Hi Mario,

mit Application.Match wird das Datum auf jeden Fall gefunden - unabhängig vom Zellformat.