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?