Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheets aus geschl. Workbook kopieren

Forumthread: Sheets aus geschl. Workbook kopieren

Sheets aus geschl. Workbook kopieren
10.03.2021 15:22:39
Melpomene
Hallo - ich hab eine Frage:
Ohne VBA-Kenntnisse bin ich für meine Verhältnisse schon weit gekommen.
Ich hab was geschrieben und es funktioniert, aber nicht ganz so wie ich es möchte.
Ziel ist es Sheets aus 2 geschlossenen Workbooks in ein offenes Workbook zu kopieren. Folgendes _
habe ich geschrieben: 

Sub CopySheetsFromClosedWBs_ok()
Application.ScreenUpdating = False
Set Dateiname1Book = Workbooks.Open("Pfad\Dateiname1.xlsx")
Dateiname1Book.Sheets("Dateiname1_1").Copy After:=ThisWorkbook.Sheets(1)
Dateiname1Book.Close SaveChanges:=False
Set Dateiname2Book = Workbooks.Open("Pfad\Dateiname2.xlsx")
Dateiname2Book.Sheets("Dateiname2_1").Copy After:=ThisWorkbook.Sheets("Dateiname1_1")
Dateiname2Book.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

Jetzt wird das aber nicht in mein Aktives Workbook kopiert, sondern immer in das Workbook, das das Makro enthält. Das will ich aber nicht.
Ich habe schon versucht "ThisWorkbook" in "ActiveWorkbook" zu wandeln, aber das klappt nicht - da bekomme ich einen Fehler. Könnt ihr mir bitte helfen?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sheets aus geschl. Workbook kopieren
10.03.2021 15:39:32
Rudi
Hallo,
so sollte das gehen: 
Sub CopySheetsFromClosedWBs_ok()
Dim wkbZiel as workBook
Application.ScreenUpdating = False
Set wkbZiel=ActiveWorkbook
Set Dateiname1Book = Workbooks.Open("Pfad\Dateiname1.xlsx")
Dateiname1Book.Sheets("Dateiname1_1").Copy After:=wkbZiel.Sheets(1)
Dateiname1Book.Close SaveChanges:=False
Set Dateiname2Book = Workbooks.Open("Pfad\Dateiname2.xlsx")
Dateiname2Book.Sheets("Dateiname2_1").Copy After:=wkbZiel.Sheets("Dateiname1_1")
Dateiname2Book.Close SaveChanges:=False
End Sub

Gruß
Rudi

Anzeige
AW: Sheets aus geschl. Workbook kopieren
10.03.2021 16:13:32
Melpomene
Danke Rudi. Das passt - Vielen Dank!
Hast du vielleicht eine Ahnung wie man auf Workbooks zugreift, wenn sich diese auf einem Sharepoint befinden und jeder quasi nen anderen Pfad hat?
Gibt es da was zu beachten?
Vielen Dank für die Hilfe
Melpomene
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige