Problem mit der Find-Methode!
29.12.2014 12:30:17
Kasimir
Ich benötige mal wieder Eure Hilfestellung. Ich suche in einer Spalte (58000 Datensätze) nach einem bestimmten Datum. Dafür benutze ich folgende Codezeilen:
strSuchtext = cdDatumTermin
With Auswertung
'Suchen, in welcher Zeile der Termin steht. Kriterium ist das Datum
Set rngSuchbereich = .Columns("B:B").Find(What:=strSuchtext, LookIn:=xlFormulas, LookAt:= _
xlPart, MatchCase:=True)
If Not rngSuchbereich Is Nothing Then
lngDatum = rngSuchbereich.Row
End If
End With
Nun funktioniert das, wenn in die Spalte als Text formatiert ist. Es kann aber auch vorkommen, dass die Spalte als Datum formatiert ist und dann wird das Datum aus der Variablen strSuchtext nicht gefunden.
Wie kann ich nun vorgehen, dass sowohl wenn die Spalte B als Text, als auch als Datum formatiert ist, ich ein Ergebnis in der Variablen lngDatum erhalte?
Danke Euch schon mal für Eure Unterstützung,
Kasimir