Sheets aus geschl. Workbook kopieren
10.03.2021 15:22:39
Melpomene
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?