ich möchte gern das mehrfache Kopieren und Umbennen von Tabellenblättern automatisieren.
In der Spalte A der Mustermappe befindet sich eine Liste mit den vorgesehenen Blattnamen der Kopien (in meinem Fall A1:A38). Wünschenswert wäre ein Makro, dass soviel Kopien wie erforderlich angelegt (also hier 38) und die Blattnamen aus meiner Liste bezieht.
Im Netz habe ich folgendes schöne Makro von Hajo gefunden:
Option Explicit
Sub Kopie()
Dim InAnzahl As Integer, intI As Integer
InAnzahl = Application.InputBox("Anzahl der kopie (aktuelle Tabelle", "Kopie", 0, Type:=1)
If InAnzahl = 0 Then Exit Sub
For intI = 1 To InAnzahl
ActiveSheet.Copy After:=Sheets(Worksheets.Count)
Next intI
End Sub
Damit lässt sich schon mal die gewünschte Anzahl von Kopien bestimmen. Kann mir jemand bei der Erweiterung des Makros bezüglich der Benennung der Kopien helfen? Meine VBA-Kenntnisse sind leider bescheiden.Da ich häufiger vor dem Vervielfältigungsproblem stehe, wäre es toll, wenn das Makro flexibel bezüglich der Anzahl der Kopien wäre.
Danke für Eure Hilfe!
Viele Grüße Lutz