Tabellenblatt mehrmals kopieren mit VBA

Bild

Betrifft: Tabellenblatt mehrmals kopieren mit VBA
von: WHN
Geschrieben am: 14.04.2005 16:28:27
Hallo Leute, ich habe mir ein Tabellenblatt angelegt.
Dieses Blatt (mit allen Formaten) brauche ich jetzt 50 Mal in der selben Mappe.
Nun könnte ich ja das Blatt 49 mal kopieren, aber das wäre ja ganz schön aufwendig. Gibt es eine Möglichkeit das Kopieren über ein Makro zu erledigen und dabei gleich die Blatt-Namen (2..50) zu vergeben?
Würde mich sehr über Hilfe freuen.
Gruß Werner

Bild

Betrifft: AW: Tabellenblatt mehrmals kopieren mit VBA
von: ransi
Geschrieben am: 14.04.2005 16:48:21


      
hallo werner
versuch mal:
Option Explicit

Public Sub t()
Dim i As Integer
Application.ScreenUpdating = 
False
For i = 1 To 49
    Worksheets(
"Tabelle1").Copy after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = i + 1
Next
Application.ScreenUpdating = 
True
End Sub

ransi 


Bild

Betrifft: AW: Tabellenblatt mehrmals kopieren mit VBA
von: Mac4
Geschrieben am: 14.04.2005 16:48:55
Hallo Werner,
das sollte helfen:

Sub test()
Dim i
For i = 2 To 51
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = i - 1
Next
End Sub

Marc
Bild

Betrifft: AW: Tabellenblatt mehrmals kopieren mit VBA
von: WHN
Geschrieben am: 14.04.2005 19:20:20
Hallo, Danke für die Hilfe.
Es läuft jetzt hervorragend, innerhalb von Sekunden sind 49 Tabellen angelegt.
Das hat mir viel Arbeit abgenommen.
Viele Grüße
Werner
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt mehrmals kopieren mit VBA"