Hi,
versuche gerade 2 Zeichen aus der Variable datumFind zu extraieren und in der Variable datWert zu speichern. Der Wert bekomme ich erst beim offset(5,0)
Dim datumFind As Range
Dim datWert As Variant
Set datumFind = Workbooks("best_kw.xls").Worksheets(blatt1).Columns(6).Find(datTabelle, LookIn:=xlValues)
datumFind.Select
datWert = Left(datumFind, 2).Offset(5, 0).Value