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

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblätter kopieren"