Ich will anhand einer Namensliste für jeden Eintrag ein eigenes
Tabellenblatt anlegen.
Ich habe für dass Problem in diesem Forum folgenden Code bekommen.
Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z
Sheets(2).Select
Sheets.Add
ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i
End Sub
Diese Lösung funktioniert perfekt.
Ich habe jetzt aber ein weiteres Problem.
Die so erstellten Tabellenblätter sind nicht formatiert.
Nun meine Frage.
Gibt es die Möglichkeit ein innerhalb einer Arbeitsmappe
vorliegendes Musterblatt zu kopieren und damit, nach
einer Namensliste Tabellenblätter anzulegen?
Im voraus schon mal besten Dank.
Gruß
Gerold