Dazu habe ich folgendes Makro:
Sub kopieren()
Dim i As Integer
For i = 2 To Sheets(1).Cells(65536, 2).End(xlUp).Row
Sheets(2).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Cells(i, 2)
Next i
End Sub
https://www.herber.de/bbs/user/25512.xls
Ich würde jetzt noch gerne in einem Schritt den jeweiligen Namen der Subprojekte aus sheet1 Spalte B in die zelle c1 des neu angelegten Sheets pro Subprojekt schreiben und den jeweiligen Wert der Zelle E1 der neuen Sheets in sheet 1 ab D14 darstellen.
Nachdem ich es nicht schaffe, hoffe ich, dass Ihr mir helfen könnt.
LG, Stephan