Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Anzeige
Inhaltsverzeichnis

Tabellenblätter kopieren

Tabellenblätter kopieren
01.03.2005 12:24:27
pb
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter kopieren
01.03.2005 14:46:09
GeorgK
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
Anzeige
AW: Tabellenblätter kopieren
01.03.2005 15:15:41
pb
Hallo GeorgK,
Funktioniert perfekt.
Spart mir wirklich viel Zeit!
Vielen Dank.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige