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
[
attachment=9586]
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
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