Microsoft Excel

Herbers Excel/VBA-Archiv

kopieren von Tabellenblätter | Herbers Excel-Forum


Betrifft: kopieren von Tabellenblätter von: chris b.
Geschrieben am: 26.08.2008 09:03:45

Hallo guten morgen VBA Profis,
habe eine frage.Für euch sicher ein klacks.
Ich bekomme diesen code nicht zum laufen.Nur leiderverstehe ich nicht warum.
Danke für eure Hilfe !

Set Neue_Mappe = Workbooks.Add
Worksheets(Array("Rotes", "Verl", "Bean")).Copy Before:=Workbooks(Neue_Mappe.Name).Worksheets(1)

Es kommt der Fehler (Index auserhalb des gültigen Dereichs
Danke noch einmal !

gruß Chris

  

Betrifft: AW: kopieren von Tabellenblätter (erledigt) von: chris b.
Geschrieben am: 26.08.2008 09:17:33

erledigt.
fehler gefunden:
thisworkbook.Worksheets(Array("Rotes", "Verl", "Bean")).Copy Before:=Workbooks(Neue_Mappe.Name).Worksheets(1)

Danke trotzdem


  

Betrifft: AW: kopieren von Tabellenblätter (erledigt) von: Gerd L
Geschrieben am: 26.08.2008 09:28:40

Hallo Chris,

wenn die neue Mappe neu ist, könnte dies reichen:

Sub b()
Dim  NeueDat As Workbook

ThisWorkbook.Worksheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Copy
Set NeueDat = ActiveWorkbook

End Sub



Gruß Gerd


  

Betrifft: AW: kopieren von Tabellenblätter (erledigt) von: chris b.
Geschrieben am: 26.08.2008 12:20:56

Danke euch beiden für eure Antworten !


  

Betrifft: AW: kopieren von Tabellenblätter von: Jürgen
Geschrieben am: 26.08.2008 09:28:56

Hallo Chris,

nach der Zeile

Set Neue_Mappe = Workbooks.Add

ist die neue Arbeitsmappe die aktive Datei. Da bei Worksheets(Array("Rotes", "Verl", "Bean")).Copy nicht angegeben ist, in welcher Arbeitsmappe die Blätter zu finden sind, versucht Excel, die gleichnamigen Blätter in dieser Datei zu finden - und das kann ihm nicht gelingen.

Aber eigentlich ist die Lösung recht einfach, denn wenn bei Copy kein Ziel angegeben wird, werden die Blätter automatisch in eine neuen Datei kopiert, also einfach:

Worksheets(Array("Rotes", "Verl", "Bean")).Copy

Gruß, Jürgen


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