Sub DatenKopieren()
Application.DisplayAlerts = False
Dim Pfad As String
Dim urdatei
Set urdatei = Worksheets(ActiveSheet.Index)
Pfad = Sheets(1).Range("V8")
Workbooks.Open Pfad & "\" & Sheets(1).Range("V9")
Sheets("Tabellenblatt 1").Select
Range("A6:C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.Close
Sheets("Ergebnis").Select
Range("A2").Select
ActiveSheet.Paste
End Sub