|
Hallo,
vielen danke für deine Antwort. (Ich versuche noch alles zu verstehen.)
Ich hatte es auch selbst versucht:
count = 0 'für die Anzahl an Datein
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
nur bekomme ich immer eine Fehlermeldung bei
wsZiel.Cells(nach) = wbQuelle.Worksheets(Reiter).Cells(von)
Weißt du, woran das liegt?
|