Herbers Excel-Forum - das Archiv

Blatt kopieren

Bild

Betrifft: Blatt kopieren
von: Bernd

Geschrieben am: 16.07.2008 18:05:55

Hallo,
ich möchte mit VBA in einem anderen Workbook ein Blatt kopieren.
with Workbooks("Test.xls")
.sheets("2008").copy Before:=.Sheets(1)
end with
Es folgtaber eine Fehlermeldung (1004) das die Methode nicht ausgeführt werden kann.
Das Workbook ist ausgeblendet, aber nicht geschützt
Bin für jeden Hinweis dankbar.
Bernd

Bild

Betrifft: AW: Blatt kopieren
von: Erich G.

Geschrieben am: 16.07.2008 18:16:59
Hallo Bernd,
dafür musst du das Fenster von Test.xls sichtbar machen.
Damit man es trotzdem nicht sieht, kannst du die Bildschirmaktualisierung ausschalten:

Application.ScreenUpdating = False
Windows("Test.xls").Visible = True
With Workbooks("Test.xls")
.Sheets("2008").Copy Before:=.Sheets(1)
End With
Windows("Test.xls").Visible = False
Application.ScreenUpdating = True

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Bild

Betrifft: AW: Blatt kopieren
von: bernd
Geschrieben am: 16.07.2008 18:52:50
Hallo Erich,
danke für die schnelle Antwort, hast mir sehr geholfen.
Viele Grüße Bernd

 Bild
Excel-Beispiele zum Thema "Blatt kopieren"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren