Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.12.2023 17:20:17
VORPLANUNG Sortierte Übernahme Personendaten von Tab1->Ta
03.12.2023 16:47:46
vergleiche 2 zellen
02.12.2023 23:35:18
2 Tabellen in einem Arbeitsblatt zusammenfügen
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgeblendete Arbeitsmappe

Ausgeblendete Arbeitsmappe
22.02.2008 08:04:00
Ludmila
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Arbeitsmappe
22.02.2008 08:23:39
Hans
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

AW: Ausgeblendete Arbeitsmappe
22.02.2008 09:47:16
Ludmila
Danke, so funktioniert es
Gruß
Ludmila
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige