Microsoft Excel

Herbers Excel/VBA-Archiv

Ausgeblendete Arbeitsmappe

Betrifft: Ausgeblendete Arbeitsmappe von: Ludmila
Geschrieben am: 22.02.2008 08:04:45

Hallo Profis,
mit nachfolgenden Code will ich aus einer ausgeblendeten Arbeitsmappe ein Tabellenblatt Kopieren und einen neuen Namen geben.
With Workbooks(Name)
.Worksheets(Art).activate
.Worksheets(Art).visible = true
.Worksheets.copyafter:=.Worksheets(.Worksheets(.count)
.AktiveSheet.Name = pname
End with
Leider funktioniert dies nur wenn ich die Arbeitsmappe eingeblendet habe. Wie kann ich das ändern?
Danke!
Gruß
Ludmila

  

Betrifft: AW: Ausgeblendete Arbeitsmappe von: Hans W. Herber
Geschrieben am: 22.02.2008 08:23:39

Hallo Ludmilla,

wie folgt:

Sub CopyWks()
   Dim wkb As Workbook
   Dim wks As Worksheet
   Set wkb = Workbooks("Test.xls")
   Set wks = wkb.Worksheets("Tabelle1")
   Application.ScreenUpdating = False
   With wkb
      Windows(.Name).Visible = True
      wks.Copy after:=.Worksheets(.Worksheets.Count)
      ActiveSheet.Name = "Test"
   End With
   Windows(wkb.Name).Visible = False
   Application.ScreenUpdating = True
End Sub


Gruss hans


  

Betrifft: AW: Ausgeblendete Arbeitsmappe von: Ludmila
Geschrieben am: 22.02.2008 09:47:16

Danke, so funktioniert es
Gruß
Ludmila


 

Beiträge aus den Excel-Beispielen zum Thema "Ausgeblendete Arbeitsmappe"