Sub
DatenKopieren()
Dim
Pfad
As
String
Dim
aktsheet
As
Worksheet
Dim
urdatei
As
Workbook, diedatei
As
Workbook
Set
diedatei = ActiveWorkbook
Set
aktsheet = diedatei.ActiveSheet
Pfad = diedatei.Sheets(1).Range(
"V48"
)
Set
urdatei = Workbooks.Open(Pfad &
"\" & diedatei.Sheets(1).Range("
V49"), Local:=
True
)
urdatei.Worksheeets(1).Range(
"A1"
).CurrentRegion.Copy aktsheet.Range(
"A1"
)
Set
diedatei =
Nothing
:
Set
urdatei =
Nothing
:
Set
aktsheet =
Nothing
End
Sub