Office: Find Methode funzt bei Datum nicht :(

Hi ihr VBA-Profis,

folgendes Problem:

1. Ich habe einen Zeitstrahl in einer Exceltabelle wo in jeder Zelle ein Datum steht.

2. Das ganze ist nur als T formatiert, also das praktisch steht da immer nur der Tag drin (als Zahl ohne Punkt). (In der Zelle an sich steht aber das volle Datum)

3. Nun habe ich in VBA ein Datum und Versuche es in der Zeile zu finden Code:
Code:

varStart ist vom Typ Variant ... hab es schon mit Typ Date probiert und auch mit 1 multipliziert. Aber er findet die Datums einfach nicht *frown.gif*.

Ist klar was ich meine? .... Kennt jemand das Problem? Wäre schön wenn mir jemand helfen könnte.

*Smilie

mfg David

:)

 

Hallo David,

steht vielleicht eine genaue Zeitangabe (Datum + Zeit) in der Suchmatrix oder im gesuchten Datum? Die Zeit kann ja über das Zahlenformat der Zelle ausgeblendet sein.

Gruß Ingolf

 

Hi Ingo,

Danke für die Antwort. *Smilie Es steht nur das Datum in der Zelle z.b. 05.01.2007

Also keine Zeit dahinter. Formatiert ist das ganze dann nur als Tag. Das praktisch nur der Tag angezeigt wird.

Irgend ne Idee? Ich weiß das ich das Problem schon mal hatte und es mit einer Zusatzspalte lösen mußte in der ich dann das Datum als Wert also z.B. 38956 geschrieben habe und dann in dieser Spalte gesucht hab. Aber jetzt wäre das nicht so gut möglich *frown.gif*.

mfg David

 

Morgen,

wenn da keine Formel drinne steht suche mal mit LookIn:=xlFormulas

cu, Bernd

 

Hi Bernd,

*vor dir Verbeug und Füsse küss* *Smilie

Funktioniert einwandfrei. Vielen Dank. *Smilie

Die Sache war ganz schön kurrios. Ich hatte es zwischenzeitlich doch mit einer extra Zeile und den Werten gemacht. Nur hats da auch am Anfang nicht funtioniert als das Datum als Zahl mit 2 Kommastellen formatiert war hat er es nicht gefunden. Als die Spaltenbreite so schmal war das die Zahl nur als ## angezeigt wurde hat er es auch nicht gefunden. Bug? Oder weißt du was das Problem war?

mfg David

 

Hi David,

das ist M.E. eher etwas dubios. LookIn:=xlValues sucht wohl immer in .Text, LookIn:=xlFormulas immer in .Formula.

Falls in der Zelle aber ein Datum stehen sollte funktioniert es nicht - und hier wird's M.E. seltsam - nach dem entsprechenden Longwert zu suchen (z.b. 36831 für den 01.11.2000). Man muß entweder nach dem String "11/1/2000" im US-Format! oder nach einem entsprechenden Datum vom Datentyp Date suchen.

Also ewas wie DateSerial(2000, 11, 1), DateValue("01.11.2000") oder auch CDate("1 November 2000").

cu, Bernd

 

danke für die Info Bernd *wink.gif*