Range.Find geht bei mir nicht
08.01.2021 15:30:39
MaxKög
habe eine Frage zur Find-Funktion, bzw warum sie bei mir nicht funktioniert.
Folgende Belegung der Zellen
A1: Das heutige Datum
B1: Das gestrige Datum
B2: Der Tag nach dem gestrigen Datum.
Wenn nun in Spalte B nach dem Wert von A1 gesucht wird, sollte ja B2 rauskommen. Bei mir kommt Nothing raus.
Lege folgendes Makro in ein Sheetmodul und starte es langsam.
Sub ZelleSuchen()
Dim Zelle As Range
Range("A1").Value = Date
Range("B1").Value = Date - 1
Range("B2").Formula = "=b1+1"
Set Zelle = Columns("B").Find(Range("A1").Value, LookIn:=xlValue, lookat:=xlPart)
End Sub
Bei "Set Zelle=" kommt die Fehlermeldung "Index ausserhalb des gültigen Bereichs" und bricht ab. Kann damit leider auch nichts anfangen. Gruss, Max