diese Zeile kann nicht funktionieren:
datum = ws2.UsedRange
Ein Datum ist kein Range!
Ein Versuch:
ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xlsx), *.xls", Title:="Eine Datei auswählen")
Set wb2 = Workbooks.Open(ImportDatei)
'Datum suchen
set rng = wb2.sheets("Auswertungen KPI").range("B50:AK50").find(date,,xlvalues,xlwhole)
if not rng is nothing then
rng.copy thisworkbook.sheets(1).cells(rows.count,1).end(xlup).offset(1) 'anpassen
end if
wb2.close 0
Es fehlen einige Angaben: Wenn das Datum gefunden wurde, was soll kopiert werden und wohin.
|