Sub
DatenKopieren()
Application.DisplayAlerts =
False
Dim
Pfad
As
String
, Inputdatei
As
String
Dim
lngLetzte
As
Long
Dim
Arbeitsdatei
As
Workbook
Set
Arbeitsdatei = ThisWorkbook
Pfad = Sheets(1).Range(
"V8"
)
Workbooks.Open Pfad &
"\" & Sheets(1).Range("
V9")
Inputdatei = ActiveWorkbook.Name
lngLetzte = Workbooks(Inputdatei).Sheets(
"Tabellenblatt 1"
).Cells(Rows.Count, 1).
End
(xlUp).Row
Workbooks(Inputdatei).Sheets(
"Tabellenblatt 1"
).Range(
"A6:C"
& lngLetzte).Copy
Arbeitsdatei.Sheets(
"Ergebnis"
).Range(
"A2"
).Paste
Workbooks(Inputdatei).Close savechanges:=
False
End
Sub