Kopieren der Tabellenblätter



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Kopieren der Tabellenblätter
von: Matthias
Geschrieben am: 15.05.2002 - 09:59:18

Hallo,

ich möchte die Tabelleblätter in einer Arbeitsmappe in eine neue kopieren, jedoch nicht Workbook.Copy benutzen. Wer kann mir einen Hinweis geben:

Meine Versuche sehe so aus:

set tab1 = activeworkbook
set tab2 = workbooks.add

for x = 1 to tab1.sheets.count
tab1.sheets(x) = tab2.sheets(x)
next

tab2.name = tab1.name & kopie

danke

Matthias

nach oben   nach unten

Re: Kopieren der Tabellenblätter
von: Martin Beck
Geschrieben am: 15.05.2002 - 10:11:09

Hallo Matthias,

versuche mal:


Sub Tabellen_kopieren()
Set tab1 = ActiveWorkbook
tab1.Worksheets(1).Copy
Set tab2 = ActiveWorkbook
For x = 2 To tab1.Worksheets.Count
    tab1.Worksheets(x).Copy after:=tab2.Worksheets(x - 1)
Next x
End Sub

Gruß
Martin Beck

 nach oben

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