Microsoft Excel

Herbers Excel/VBA-Archiv

Blatt kopieren

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

  

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


  

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


 

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