Hallo,

ich möchte verschieden aufgebaute Tabellenblätter aus geschlossenen Arbeitsmappen kopieren. Der Dateiname ist gleich dem Blattnamen der Zieldatei.

Das ist mein Code, aber so funktioniert das natürlich nicht..

Sub BlattAusGeschlossenerMappeKopieren()
blattname = ActiveSheet.Name
Application.ScreenUpdating = False

Set GeschlosseneMappe = Workbooks.Open("\\local\Documents\blattname.xlsx")
GeschlosseneMappe.Sheets("22_1 ABC").Copy Before:=ThisWorkbook.Sheets(1)
GeschlosseneMappe.Close SaveChanges:=False

Application.ScreenUpdating = True
End Sub


Wie kann ich den Blattname als variable in definieren und in den Code einbauen?

Vielen dank schon jetzt, ihr könnt bestimmt helfen :)


Viele Grüße
Jacky