Hallo zusammen,

nachdem ihr mir mit meiner ersten Frage (8.10.2024) so gut geholfen habt und ich den übermittelten Code gut in meiner ersten Datei-Variante nutzen konnte, ist nun ein weiterer Anspruch dazu gekommen.
Dies ist der Code (nochmals Danke, Onur), den ich nutze:

Private Sub CommandButton1_Click()
Dim wb, i, lz, na, pfad
pfad = [C2]
For i = 4 To 29
If Cells(i, 3) > "" Then lz = i
Next i
For i = 4 To lz
na = Cells(i, 3)
Sheets("Datentabelle").Copy
Set wb = ActiveWorkbook
wb.SaveAs pfad & na
wb.Close
Next i
End Sub

Die Ursprungsfragestellung bleibt, wird aber nun erweitert um die Notwendigkeit nicht nur 1 Register aus der Vorlage zu kopieren. Nun soll ich die Vorlage um mehrere Register erweitern und dann entsprechend jeweils mit allen Registern in eine neue Datei kopieren. Also z.B. Register "Datentabelle", Register "Auswertung1", Register "Auswertung2" etc.
Habt ihr dazu auch eine gute Idee? Ich komme mit meinen bescheidenen Kenntnissen nicht weiter.
Danke vorab.