Scrollfunktion Textkonvertierungs-Assistent

Hallo Gijs,

ja, so hat es funktioniert. Danke für die schnelle Rückmeldung!

Liebe Grüße,

Klaus

Hallo Klaus,

danke für die Nachricht.

Laut diesem (englischen) Thread
sollten Sie in der Lage sein, die Apple-Systemeinstellungen zu ändern, so dass Rollbalken immer angezeigt werden. Bitte konsultieren Sie

diesen Link.

Ich freue mich auf Ihre Rückmeldung.

MfG;

Gijs H.

Untereinander ist wohl besser falls das geht. Ich arbeite leider nicht so häufig mit Excel. Hauptsache ich spare mir den Aufwand immer alles einzeln beim Einlesen umstellen zu müssen.

Hallo,

meinst du vielleicht den Reiter Daten, und dort die Funktion "Externe Daten abrufen" (in Office 2016 ist das ganz links)?

Hallo Julian,

probiere es mal mit folgendem Makro.

Es liest dir alle Dateien aus deinem gewünschten Ordner ein und trennt dann die Spalte und ändert das Dezimaltrennzeichen.

Sub TextKonvertieren()

Dim FSO As Object, objFolder As Object, objFile As Object, objReadFile As Object

Dim varTmp As Variant, varOut As Variant

Dim dest As Range

Dim myString As String
'Hier den Pfad zu deinem Ordner anpassen

Const myPath = "C:\Users\claus\Desktop\myFolder\"
Set FSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = FSO.getfolder(myPath)
For Each objFile In objFolder.Files

    If Right(objFile.Name, 3) = "dat" Then

        Set dest = ActiveSheet.Cells(Rows.Count, "A").End(xlUp)(2)

        Set objReadFile = FSO.opentextfile(myPath & objFile.Name)

        myString = objReadFile.readall

        objReadFile.Close

        varTmp = Split(myString, Chr(10))

        dest.Resize(UBound(varTmp) + 1) = Application.Transpose(varTmp)

    End If

NextWith ActiveSheet.Columns("A:A")

     .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _

        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _

        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), DecimalSeparator:=".", _

        ThousandsSeparator:=",", TrailingMinusNumbers:=False

End With

End Sub

Claus