Danke für die Antwort :) Ich möchte es aber so weit wie möglich automatisiert für die Mitarbeiter haben.

Ich habe einen Programmtext gefunden: Ist ein Auszug ich habe eine Frage. Wie schreibe ich das um, dass er nur bestimmte Zellen ausliest, also nicht alle genutzten?

 'Datenübertragung alle genutzten Zeilen und Spalten
         For z = 1 To oSourceBook.Sheets(1).UsedRange.Rows.Count
             'Keine Leerzeilen verarbeiten
             If Trim(CStr(oSourceBook.Sheets(1).Cells(z, 1).Value)) <> "" Then
                 For s = 1 To oSourceBook.Sheets(1).UsedRange.Columns.Count
                     'Spalte 1 - Dateinamen
                     oTargetSheet.Cells(lErgebnisZeile, 1).Value = sDatei
                     'Spalte 2 bis n - Tabelleninhalte des Arbeitsblattes "Tabelle1"
                     oTargetSheet.Cells(lErgebnisZeile, s + 1).Value = _
                         oSourceBook.Sheets(1).Cells(z, s).Value
                 Next s
                 lErgebnisZeile = lErgebnisZeile + 1

Danke