hallo zusammen
hat mir da jemand eine elegantere Lösung, damit sich nicht für jedes Sheet das workbook öffnet?
P.S. WB = Worbook
Danke im Voraus und gruss
Set WB = Workbooks.Open(dName, True)
With ThisWorkbook
' Arbeitsblätter "General""G1 Sensors""G1 Aleth" jeweils am Schluss einfügen (copy)
Sheets("General").Copy after:=.Worksheets(.Worksheets.Count)
End With

Set WB = Workbooks.Open(dName, True)
With ThisWorkbook
Sheets("G1 Sensors").Copy after:=.Worksheets(.Worksheets.Count)
End With

Set WB = Workbooks.Open(dName, True)
With ThisWorkbook

' Name der Rohdaten-Datei auslesen
intNr = ActiveWorkbook.Name

Worksheets("G1 ALeth").Copy after:=.Worksheets(.Worksheets.Count)
End With

' Rohdaten-Datei schliessen ohne speichern von Änderungen
WB.Close savechanges:=False