Microsoft Excel

Herbers Excel/VBA-Archiv

alle sheets kopieren | Herbers Excel-Forum


Betrifft: alle sheets kopieren von: Philipp
Geschrieben am: 24.11.2009 10:59:20

Hallo zusammen.

Ich möchte alle sheets eines Workbooks in ein einderes Workbook kopieren.
Wisst ihr eine elegante Lösung?

Gruß Philipp

  

Betrifft: AW: alle sheets kopieren von: Philipp
Geschrieben am: 24.11.2009 11:05:36

Function copy()

Das hab ich erstellt. Geht aber bestimmt noch schöner

With bmwWbook

For i = 1 To .Sheets.Count
.Sheets(i).copy After:=Workbooks(ThisWorkbook.Name).Sheets(1)

Next i


End With
End Function



  

Betrifft: Vorschlag von: Matthias L
Geschrieben am: 24.11.2009 11:21:40

Hallo

hier ohne Fehlerbehandlung!
Code steht in der Zielmappe / Quellmappe ist geöffnet

Sub Kopieren()
With Workbooks("Quellmappe.xls")
.Worksheets.Copy After:=Workbooks(ThisWorkbook.Name).Sheets(1)
End With
End Sub
Gruß Matthias


  

Betrifft: Nachtrag von: Matthias L
Geschrieben am: 24.11.2009 11:39:43

Hallo

diese Zeile reicht übrigens so auch schon:
.Worksheets.Copy After:=ThisWorkbook.Sheets(1)
könntest sie also ersetzen.

Gruß Matthias


Beiträge aus den Excel-Beispielen zum Thema "alle sheets kopieren"