Anzeige
Archiv - Navigation
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellen mit VBA kopieren

Tabellen mit VBA kopieren
11.09.2005 19:04:41
WHN
Hallo,
ich möchte ein Tabellenblatt 50 mal in die geöffnete Mappe kopieren.
Wie kann ich das mit VBA in einer Prozedur erledigen?
Viele Grüße
Werner

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen mit VBA kopieren
11.09.2005 19:15:47
Ramses
Hallo

Sub Add50Sheets()
Dim i
For i = 1 To 50
Worksheets.Add
Next i
End Sub

Gruss Rainer
AW: Tabellen mit VBA kopieren
11.09.2005 19:31:48
WHN
Hallo Rainer,
Danke für den Tipp.
Neue Tabellen werden ohne Probleme angelegt, leider aber will ich das bestehende Tabellenblatt mit allen Formaten 50 Mal kopieren.
Viele Grüße
Werner
AW: Tabellen mit VBA kopieren
11.09.2005 19:29:40
PeterW
Hallo Werner,
willst du leere Tabellenblätter einfügen (das erledigt der Code von Rainer) oder willst du ein bearbeitetes Tabellenblatt (von wo bzw. welches) mehrfach kopieren?
Gruß
Peter
AW: Tabellen mit VBA kopieren
11.09.2005 19:35:17
Aton
Hallo
Das zu Coppierende Blatt änderst den Namen auf "Blatt"
oder du past das Makro an.

Sub Blatt50()
For AZ = 2 To 50
Sheets("Blatt").Select
Sheets("Blatt").Copy After:=Sheets(1)
Sheets("Blatt (2)").Select
Sheets("Blatt (2)").Name = "Blatt " & 52 - AZ
Next AZ
End Sub

Gruß Aton
Anzeige
AW: Tabellen mit VBA kopieren
11.09.2005 19:40:58
PeterW
Hallo Aton,
ohne Select geht das dann so:

Sub Kopien()
Dim i As Integer
For i = 1 To 50
Worksheets("Blatt").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Blatt " & i
Next
End Sub

Gruß
Peter
AW: Danke Peter
11.09.2005 19:52:18
Aton
Hallo PeterW
Toll da hab ich wieder etwas arbeit geht ja auch schneller
Vielen Dank
Gruß Aton
Danke für die Hilfe
11.09.2005 20:52:37
WHN
Hallo, jetzt läuft es.
Danke für die Hilfe
Viele Grüße
Werner

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige