Sub Daten_uebertragen()
Dim Qu
as
workbook
'Quelle
Dim Zi as workbook '
Ziel
iPath =
"c:\temp\" '<<<< anpassen
iFile = '<<<<<<<<< hier den Code von gestern
set Qu = workbooks.open(iPath & iFile)
set Zi = workbooks.open(iPath & "
Druckerstatistik
"
'Schleife
'Kopieren
lr = Zi.sheets(1).cells(rows.count, "
A
").end(xlup).row +1 'erste freie Reihe
Zi.sheets(1).cells(lr,"
A
") = Qu.sheets(1).cells(x,y) 'zuerst Zeile x und Spalte y bestimmen
'Schleifenende
Qu.close 0
ND = Format(now, "
yyyymmdd
")
Zi.close "
Druckerstatistik
" & ND & "
.xlsx" 'oder so ähnlich
end
sub