Hi Till,

vielen Dank. So hats bei mir leider nicht geklappt (warum auch immer...) aber mit

myMakroWB = This Workbook am Anfang

und diesem Befehl später

WbkNeu.Sheets(1).Range("B5").Copy myMakroWB.Sheets(1).Cells(lastrow, 3)

funktioniert es dann.

Gerade hänge ich aber mal wieder hier:(

lastrow = lastrow + 1
I = 3
Do While I <= lastrow
Set WbkAnfrage = Workbooks("C:\Users\brobeck\Desktop\" & I - 2 & ".xlsx")

If Cells(I, 12) = 0 And Cells(I, 3) <> 0 And Cells(I, 4) <> 0 And Cells(I, 5) <> 0 And Cells(I, 6) = 0 Then
Cells(I, 12) = "1. Freigabe M1"
Cells(I, 13) = "Zuständiger"
Set position = Cells(I, 14)
position = Format(Date + 5, "dd/mm/yyyy")
Cells(I, 15) = "nein"
End If

If Cells(I, 15) = "ja" And Cells(I, 6) = 0 Then erledigt = True
If erledigt = True And Cells(I, 12) = "1. Freigabe M1" Then
Cells(I, 15) = "nein"
erledigt = False
Cells(I, 12) = "Versendung der Unterlagen an ToGe"
Cells(I, 13) = "Zuständiger"
Set position = Cells(I, 14)
position = Format(Date + 5, "dd/mm/yyyy")
WbkAnfrage.Sheets(1).Range("E16:E17") = Format(Date, "dd/mm/yyyy")
End If

Dies ist nur ein Teilausschnitt (da der code mittlerweile unendlich lang ist ), aber sobald ein Prozessschritt bestätigt wurde(in der Gesamtübersicht), soll in ein Dokument, das den detaillierten Antrag enthält und den Dateinamen trägt, der gleich der laufenden Nummer des Antrags in der Gesamtübersicht ist, das aktuelle Datum eingefügt werden. Aber leider gelingt es mir nicht den Detailantrag anzusprechen. Weder über WbkAnfrage noch über den genauen Pfad - irgendwie funktioniert es nicht und ich bin verzweifelt und weiß nicht warum. Bei der fetten Zeile bekomme ich die Fehlermeldung 91, dass der Index außerhalb des gültigen Bereichs sei :(

Hast du vielleicht eine Idee?

tausend Dank...

Liebe Grüße,

Claudia