ElementSolutionMakro

Sub ElementImport()
    strExt = "*.XLS"       'Dateiextension ggf. anpassen
    ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (" & strExt & "), " & strExt, _
Title:="Verzeichnisauswahl, erste Datei auswählen")
    If ZuÖffnendeDatei = False Then Exit Sub
    'Die ausgewählte Datei ist egal. es wird hier nur das Verzeichnis der Datei ausgewertet
    Application.ScreenUpdating = False ' kein Bildschirm-Update - kein Flackern
    strPath = CurDir & "\"
    If strPath = "" Then
        Exit Sub
    Else
        ChDir strPath
        strFile = Dir(strPath & strExt) 'hier wird die erste Datei gefunden
        Do While Len(strFile) > 0
            Workbooks.OpenText Filename:=strPath & strFile, DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
                Tab:=True, Semicolon:=False, Comma:=True, _
                Space:=False, Other:=False, trailingMinusNumbers:=True
            Sheets(1).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

            strFile = Dir() ' nächste Datei
        Loop
    End If
    Application.ScreenUpdating = True  ' den Bildschirm-Update wieder zulassen
End Sub