Herbers Excel-Forum - das Archiv

Tabellenblätter kopieren

Bild

Betrifft: Tabellenblätter kopieren
von: pb

Geschrieben am: 01.03.2005 12:24:27
Hallo,
ich brauche ein Makro für folgendes Problem:
Ich will aus einer Arbeitsmappe alle Tabellenblätter kopieren (variable Anzahl)und in eine andere bereits existierende Mappe einfügen, und zwar nur Werte und Formate.
Die Namen der Tabellenblätter sollten erhalten bleiben.
Wäre toll, wenn mir da jemand helfen könnte.
Bild

Betrifft: AW: Tabellenblätter kopieren
von: GeorgK

Geschrieben am: 01.03.2005 14:46:09
Hallo,
vielleicht kannst Du das ja anpassen.
Wird die bestehende Arbeitsmappe als neue Arbeitsmappe mit Werten und Formaten angelegt.
Sub KopierenArbeitsmappe()
Dim wbkAktuell As Workbook
Dim wbkNeu As Workbook
Dim intAnz As Integer
Dim intZ As Integer
Set wbkAktuell = ActiveWorkbook
Set wbkNeu = Workbooks.Add
intAnz = wbkAktuell.Worksheets.Count
For intZ = 1 To intAnz
If intZ > wbkNeu.Worksheets.Count Then
wbkNeu.Worksheets.Add after:=wbkNeu.Worksheets(wbkNeu.Worksheets.Count)
End If
wbkNeu.Worksheets(intZ).Name = wbkAktuell.Worksheets(intZ).Name
Next intZ
For intZ = 1 To intAnz
wbkAktuell.Worksheets(intZ).Activate
ActiveSheet.Cells.Select
Selection.Copy
wbkNeu.Worksheets(intZ).Activate
ActiveSheet.Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
wbkNeu.Worksheets(intZ).Range("A1").Select
Next intZ
wbkAktuell.Close
Set wbkAktuell = Nothing
Set wbkNeu = Nothing
End Sub

....Ralf

Grüße
GeorgK
Bild

Betrifft: AW: Tabellenblätter kopieren
von: pb
Geschrieben am: 01.03.2005 15:15:41
Hallo GeorgK,
Funktioniert perfekt.
Spart mir wirklich viel Zeit!
Vielen Dank.
 Bild
Excel-Beispiele zum Thema "Tabellenblätter kopieren"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren