.find nach Datum und verbundenen Zellen
12.05.2021 08:04:24
Mike
ich habe ein Tabellenblatt auf dem sich neben Standard formatierten Zellen auch Datumsformatierte Zellen befinden.
Zu jedem Datum (zB 12.05.2021) sind Einträge vorhanden die ich auslesen möchte. Ich hole mir also das aktuelle Datum in einen String
Datum As Date
c As Object
srtZelle As String
Datum = Format((Now), "dd.mm.yyyy")
Set c = wsQuelle.UsedRange.Find(strDatum, LookIn:=xlValues, Lookat:=xlPart)
If Not c Is Nothing Then
strZelle = c.Adresse
End If
Ich habe dann ein wenig gesucht und der Grund dafür liegt ja offensichtlich in der Formatierung als Datum da ich jeden anderen Inhalt über die Suche problemlos finden kann.
Daraufhin habe ich probiert den String Datum nicht als String sondern als Datum zu deklarieren was aber auch nicht zum Erfolg geführt hat.
Das Datum welches gefunden werden soll steht immer in einem Range aus verbundenen Zellen . Soweit ich das verstanden habe scheinen verbundenen Zellen aber grundsätzlich kein Problem zu sein solange der Suchbereich auch als Range angegeben wird. Zumindest wird auch nichts gefunden wenn ich das Datum nur in eine Zelle schreibe.
Ich hab da mittlerweile soviel rumprobiert das ich wahrscheinlich mal wieder den Wald vor lauter Bäumen nicht mehr sehe.
Kann mir da bitte jemand weiterhelfen und Licht ins Dunkle bringen.
Gruß
Mike
