Hallo,
ich versuche mit
__
Dim Beg_Dat_Wert As Date, Beg_Dat_Ort As Range
Beg_Dat_Wert = WorksheetFunction.Min(Range("C4:C7")) 'frühestes Datum zur Ermittlung Offset
With ActiveSheet.Range("C4:C7")
Set Beg_Dat_Ort = .Find(Beg_Dat_Wert, LookIn:=xlValues)
End With
__
Die Zelle mit dem frühestem Datum im Bereich C4:C7 in Beg_Dat_Ort zu speichern.
Leider findet sich nach Aufruf in Beg_Dat_Ort "Nothing"
Wo ist mein Fehler?
Ciao Steffen