Datum suchen in Arbeitsblatt

[Georg Bermüller]

Hallo NG,
zeichne ich in Excel 2002 einen Suchen-Dialog auf, so wird der Wert
gefunden. Lasse ich den Dialog in VBA laufen wird der Wert nicht gefunden.
Bei dem Wert handelt es sich um das Datum '31.03.2005'. Die Zelle in der
Wert steht ist als benutzerdefiniert als "TT" definiert. Aber auch bei
anderen Zellen bei denen das Datum ganz normal eingeben wurde, finde ich in
VBA die Zelle nicht.

Irgendeiner wird doch wohl eine Lösung oder Erklärung haben.

Gruß Georg

[Alexander Wolff]

Post by Georg Bermüller
zeichne ich in Excel 2002 einen Suchen-Dialog auf, so wird der Wert
gefunden. Lasse ich den Dialog in VBA laufen wird der Wert nicht
gefunden. Bei dem Wert handelt es sich um das Datum '31.03.2005'. Die
Zelle in der Wert steht ist als benutzerdefiniert als "TT" definiert.
Aber auch bei anderen Zellen bei denen das Datum ganz normal eingeben
wurde, finde ich in VBA die Zelle nicht.

3 finden (und richtig mit 2 ersetzen, also 21.03.2005) tut VBA aber. Problem
dürfte sein, daß VBA englischsprachig ist und englischformatig verarbeitet.

http://groups.google.de/group/microsoft.public.de.excel/browse_frm/thread/6340873a95fc8a22/1e85562b579ff22e?q=Datum+mit+VBA+suchen&rnum=4&hl=de#1e85562b579ff22e

http://groups.google.de/group/microsoft.public.de.excel/browse_frm/thread/d969350b70fa536/b637488173f8bd5a?q=Datum+mit+VBA+suchen&rnum=10&hl=de#b637488173f8bd5a

Quintessenz des letzteren Links: Suche nach Date +/- Differenz zum gesuchten
Datum.

[Wolfgang Kutsche]

Hallo Georg,

nachfolgenden Code habe ich gerade mal geschrieben und ausprobiert:

Sub DatumSuchen()
'*** zu suchendes Datum mit InputBox einlesen
Datum = InputBox("... bitte das Datum nachdem Sie suchen eingeben" & _
Chr(13) & "... TT.MM.JJJJ", "Eingabe Suchdatum")
'*** Tabellenblatt aktivieren
Cells.Select
'*** Suche starten
Selection.Find(What:=CDate(Datum), After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

... wichtig ist, dass Du in Select.Find(... das zu suchende Datum mit
CDate(Datum) eingibst.


Gruß Wolfgang

Post by Georg Bermüller
Hallo NG,
zeichne ich in Excel 2002 einen Suchen-Dialog auf, so wird der Wert
gefunden. Lasse ich den Dialog in VBA laufen wird der Wert nicht gefunden.
Bei dem Wert handelt es sich um das Datum '31.03.2005'. Die Zelle in der
Wert steht ist als benutzerdefiniert als "TT" definiert. Aber auch bei
anderen Zellen bei denen das Datum ganz normal eingeben wurde, finde ich in
VBA die Zelle nicht.
Irgendeiner wird doch wohl eine Lösung oder Erklärung haben.
Gruß Georg