Option
Explicit
Sub
ImportMoreSheets()
Dim
ExportDatei
As
Variant
Dim
wbImport
As
Workbook
Dim
wbExport
As
Workbook
Dim
shImport
As
Worksheet
Dim
shExport
As
Worksheet
ExportDatei = Application.GetOpenFilename _
(FileFilter:=
"Microsoft Excel-Dateien (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm"
, _
Title:=
"Eine Datei auswählen"
)
If
ExportDatei =
False
Then
Exit
Sub
Application.ScreenUpdating =
False
Application.DisplayAlerts =
False
Set
wbImport = ActiveWorkbook
Set
wbExport = Workbooks.Open(ExportDatei)
For
Each
shExport
In
wbExport.Sheets
For
Each
shImport
In
wbImport.Sheets
If
shImport.Name = shExport.Name
Then
shImport.Delete
Next
shImport
shExport.Copy After:=wbImport.Sheets(wbImport.Sheets.Count)
Next
shExport
wbExport.Close
Application.ScreenUpdating =
True
Application.DisplayAlerts =
True
End
Sub