Dim
vntPathAndFileNames
As
Variant
Dim
strPathAndFile
As
String
Dim
lngI
As
Long
Dim
wbkMappe
As
Workbook
Dim
wksT
As
Worksheet
Dim
wbkZiel
As
Workbook
Set
wbkZiel = ThisWorkbook
vntPathAndFileNames = Application.GetOpenFilename( _
FileFilter:=
"Excel Files (*.xlsx), *.xlsx"
, _
Title:=
"Wählen sie die gewünschten Dateien aus (mit STRG). mit STRG-A wählen sie alle Dateien aus"
, _
MultiSelect:=
True
)
If
VarType(vntPathAndFileNames) = vbBoolean
Then
MsgBox
"Abgebrochen!"
Else
For
lngI = LBound(vntPathAndFileNames)
To
UBound(vntPathAndFileNames)
strPathAndFile = vntPathAndFileNames(lngI)
Set
wbkMappe = Application.Workbooks.Open(strPathAndFile)
For
Each
wksT
In
wbkMappe.Worksheets
wksT.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)
Next
wbkMappe.Close
False
Next
End
If
End
Sub