(VBA) Zellen verschiedener gleichaufgebauter Dateien in Auswertungsdatei kopieren

[Betalo]

Genau, ich möchte das die erste Zeile unter der Überschrift beschrieben wird. Nur nachdem ich deine Zeile hinzugefügt habe, schreibt Excel es immer noch unter allem anderen.
Zur Veranschaulichung habe ich ein Bild hochgeladen.

Gruß Nico
   

[RPP63]

Es geht nur um die maximal 11 Personen?
Ich habe Dateien_auswerten() dann mal entsprechend abgeändert.

Sub Dateien_auswerten()
Application.ScreenUpdating = False
lngFirstFreeRow = 10
For Each objDatei In objDateien.Files
   If Right(objDatei.Name, 5) = ".xlsm" Then
       Application.StatusBar = "Datei """ & objDatei.Name & """ wird ausgelesen!"
       DoEvents
       GetObject (objDatei)
       'weiterer Code 
  End If
lngFirstFreeRow = lngFirstFreeRow + 1
Next
'weiterer Code 
End Sub

Gruß Ralf

[Betalo]

Insgesamt arbeiten mehr Personen bei uns, aber im Monat kommen nur maximal 10 Dienstreiseabrechnungen, deswegen brauche ich keine größere Tabelle. Trotzdem danke für den Code und die ganze Mühe, die du mit mir hattest. Jetzt schreibt er alles in die Tabelle.

Gruß Nico