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