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