Sub DateinImport()
Dim Zielmappe As Object
Dim Quellen As Object
Dim Pfad As String
Dim Datei As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Zielmappe = ActiveWorkbook
Datei = Application.GetOpenFilename("Exceldateien öffnen(*.csv*),*.csv*", , "Gewünschte Datei auswählen")
Workbooks.Open (Datei), Local:=True
Do While Datei <> ""
Set Quellen = Workbooks.Open(Pfad & Datei, False, True)
Quellen.Sheets().Copy after:=Zielmappe.Sheets(Zielmappe.Sheets.Count)
Zielmappe.Sheets(Zielmappe.Sheets.Count).Name = Datei
Quellen.Close
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Dateien erfolgreich importiert"
Set Zielmappe = Nothing
Set Quellen = Nothing
End Sub