Mein Versuch :
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook
Worksheets(1).Copy after:=.Worksheets(.Worksheets.Count)
Worksheets(2).Copy after:=.Worksheets(.Worksheets.Count)
Worksheets(3).Copy after:=.Worksheets(.Worksheets.Count)
Worksheets(4).Copy after:=.Worksheets(.Worksheets.Count)
Worksheets(5).Copy after:=.Worksheets(.Worksheets.Count)
Worksheets(6).Copy after:=.Worksheets(.Worksheets.Count)
End With
funktioniert leider nicht.
Gibts da ne elegante Lösung ?
Merci vorab