count = 0
Do
While
Fname <>
""
Set
wbQuelle = Workbooks.Open(Pfad & Fname)
For
i = 6
To
93
von = ThisWorkbook.Worksheets(
"von-nach"
).Cells(i, 5)
nach = ThisWorkbook.Worksheets(
"von-nach"
).Cells(i, 6)
Reiter = ThisWorkbook.Worksheets(
"von-nach"
).Cells(i, 1)
wsZiel.Cells(nach + count) = wbQuelle.Worksheets(Reiter).Cells(von)
wbQuelle.Close savechanges:=
False
Set
wbQuelle =
Nothing
Fname = Dir()
count = count + 1
ZielZeile = ZielZeile + 1
Loop