Zum Verständnis meines Problems habe ich ein Bild angehängt und den relevanten Code eingefügt:
<pre>Sub NewGroup()
Dim Zeile&, x&, MyMaxRow
For x = 1 To 220 'Spalten A-HL
Zeile = Cells(Rows.Count, x).End(xlUp).Row
MyMaxRow = IIf(Zeile > MyMaxRow, Zeile, MyMaxRow)
Next
Range("A13:HN28").Copy Destination:=Range("A" & MyMaxRow + 1)
'Bereich A12-HL27 kopieren und nach der letzen benutzten Zeile ausgeben
End Sub</pre>
<pre>Sub Kopieren()
Dim x As Integer
ActiveWorkbook.Sheets("Muster Sheet").Copy _
After:=ActiveWorkbook.Sheets("Timeline")
NewName = InputBox("Please insert the group name")
ActiveSheet.Name = NewName
End Sub</pre>
Also mit dem Auslösen des Buttons "Add New Group" wird der Bereich A13:HN28 kopiert und nach der letzten Zeile wieder eingefügt. Ebenfalls wird ein neues Tabellenblatt erzeugt und man wird aufgefordert einen Namen einzugeben.
Zu meiner Frage:
Gibt es eine Möglichkeit den Tabellennamen des erzeugten Blattes auszulesen und in den neuen Bereich, C29:C44, einzufügen? Wie auf dem Bild zu sehen ist, sind die Zellen C13:C28 verbunden.
Das ganze sollte dann mit jeder neuen Gruppe, die man hinzufügt, wiederholt werden.
Gruß
Fabian