Datum suchen die Lösung !

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Datum suchen die Lösung !
von: Horst
Geschrieben am: 17.07.2002 - 07:37:21

Hallo,
Nach langem hin und her klappt es endlich mit der Suche nach dem Datum.
Die Eckdaten:
In Spalte A stehen Datumswerte formatiert ddmmyy.
Über die Kalender-Steuerfunktion wähle ich ein Datum aus, welches dann in der Spalte A gesucht wird.
Eigentlich ganz einfach, ich habe aber eine ganze Weile gebraucht und das Forum ein wenig strapaziert.
Aber die Mühe hat sich gelohnt:

Datum_wert enthällt das Datum welches vom Kalender übergeben wird.
Entscheidend ist: CDate(Datum_wert) 'Tip von Hajo
LookIn:=xLFormulas '?? (kapiere ich zwar nicht, aber....nur so gehts)


'_____________________________________________________

Set rngFind = Columns(1).Find(CDate(Datum_wert), lookat:=xlWhole, LookIn:=xlFormulas)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Cells(rngFind.Row, 1).Select
'_____________________________________________

Gruß Horst



 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Datum suchen die Lösung !"