Office: Mit "Cells.find" nach Datum suchen

Hallo,

sitze entnervt am PC und versuche mit
Set rng = Cells.Find(what:=Suchbegriff,*"
in Spalte A ein Datum zu finden.
Das Datumformat ist vom Typ 14.04.98.
Die Variable Suchbegriff ist von Typ Variant.

Den Code entnahm ich aus eine Antwort von jinx aus folgendem Beitrag.
http://www.ms-office-forum.net/forum...ighlight=.find

Was muss ich ändern, damit ich bei der Suche nach dem Datum 16.01.06
auch dieses Datum finde.

:)

 

Moin, Walter,

und dann keine Soforthilfe... *wink.gif* Aus dem Herber-Archiv von Hans himself kommt der für Dich entscheidende Hinweis:

Im Code steht aber, dass in LookIn:=xlValues gesucht werden soll...

 

Hallo jinx,

tja, mit der von Dir vorgeschlagenen Änderung kann Excel leider auch nichts anfangen.
In der Realität möchte ich das Suchdatum aus einer Zelle von Mappe1 entnehmen
und der Variablen "Suchbegriff" übergeben und in Mappe2 suchen. In der Zelle von
Mappe1 ist ein Text = 16.01.06. So weit bin ich jedoch noch nicht, denn ich bekomme
Dein Beispiel incl. LookIn:=xlFormulas aus
http://www.ms-office-forum.net/foru...highlight=.find schon nicht zum Laufen. In die
MsgBox schreibe ich 16.01.06
Hast Du noch eine Idee weshalb Excel nichts findet ?

 

Hallo,

bei der Suche nach "LookIn:=xlFormulas Datum" in Google fand ich unter
www.herber.de das folgende Beispiel

Code:

Damit konnte ich das ursprüngliche Problem lösen. Aber kaum geknackt ist
schon die nächste harte Nuss da. Die Suche nach dem Datumwert benötige
ich zum Ermitteln der Einfügeposition von Importdaten. Die Importdaten sind
in Mappe1, die ich in die Zwischenablage nehme und über
Code:

in Mappe2 einfüge. Leider kommen die so eingefügten Datümer linksbündig
an. Das Format der eingefügten Zellen ist jedoch vom Datum 14.04.98.
In diesem seltsamen Format funzt die zuvor erfolgreich getestete Datumssuche
nicht mehr. Ich kriegs noch an den Nerven ? *mad.gif*

 

Moin, Walter,

an die wohl zu einfache Möglichkeit des Anhängens eines Beispieles hast Du wohl nicht gedacht? Ich habe jedenfalls aufgrund Deiner ersten Beschreibung schon einmal umsonst nachgebildet, um dann falsche Grundlagen zu haben und einen darauf funktionierenden Code anzubieten - das passiert zumindest mir nicht noch einmal...

 

Hallo jinx,

entschuldige vielmals, anbei sind nun zwei Dateien die direkt auf C:\ zu
positionieren sind. Die Datei Probe enthält das Makro Test.
Das Makro "Test" öffnet die Textdatei "Export1.txt" entnimmt daraus den
Wert aus "A2" und sucht diesen Wert in der "Probe.xls". Ist der Wert
gefunden wird der Inhalt der Textdatei an dieser Stelle eingefügt.
Nach dem Einfügen sind die Werte in Spalte A kein Datum mehr und eine
weitere Suche nach dem Wert aus Export1.txt" A2 ist nicht mehr möglich.

Da ich viele unterschiedlich aufgebaute "Export1.txt" verarbeite und deren
Inalte in viele verschiedene Excel-Dateien importiere benötige ich eine
einheitliche "Workbooks.OpenText".

 

Moin, Walter,

wenn die Daten immer aufsteigend und lückenlos sind wie im Beispiel, kann am Ende des Makros der folgende Zusatz helfen:

Code:

Sollten die Daten dem nicht entsprechen, musst Du Dich bitte noch einmal melden.

 

Hallo jinx,

besten Dank für die "quick and dirty" Symptom-Behandlung. Es funzt da das Datum
chronologisch ist. Gibt es für meinen Anwendungsfall eine praktikable Möglichkeit diese
Excel-Krankheit zu kurieren ?

 

Moin, Walter,

die anderen Lösungsmöglichkeiten haben sich leider nicht als erfolgreich erwiesen - in der Beispielmappe und bei Verwendung von Excel2002 SP-3 verbleibt ein Apostroph sowohl als Zeichen für einen Text als auch als Zeichen des linksbündigen Formatierens und damit Ausrichtung am linken Rand der Zelle...

 

Hallo jinx,

ein Apostroph konnte ich weder in der mit Excel geöffneten Export1.txt noch
nach dem Einfügen in der Probe.xls finden.
Das Problem ist jedoch vom Tisch. Nach dem Öffnen der Textdatei schreibe
ich jeden Wert aus Spalte A in eine Date-Variable, füge "" in die Zelle ein
formatiere die Zelle als Datum und füge die Date-Variable ein. Dadurch wird
der Datum-String zu Datum gewandelt und das anschließende Einfügen in die
Probe.xls erzeugt keinen Mist mehr.
Vielen Dank für die Hilfe.