Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Tabellenblatt mehrmals kopieren mit VBA"
Benennen von Tabellenblättern mit Monatsnamen Druckseitenlinien im Tabellenblatt
Tabellenblattnamen in ein Listenfeld einlesen Suchbegriff über mehrere Tabellenblätter suchen.
Tabellenblätter benennen Tabellenblatt auswählen
Zustand von Tabellenblatt-Checkboxes ermitteln Tabellenblattnamen der VBE-Projekte ändern
Tabellenblattnamen nach Datum Gefilterte Daten in neues Tabellenblatt übertragen