Hallo Zusammen,


ich bin neu in der VBA Programmierung und muss eine Text Datei in ein Excel Importieren. Das bekomme ich auch gut hin.

Das Problem ist das meine Text Datei sehr viele Leerzeichen besitzt. Beispiel siehe Text Datei unten

Für die Erste Zeile mit Vorname Nachname etc. habe ich in Excel bereits Felder erstellt in die die Zuweisung stattfinden sollte. Diese habe ich dann in der txt Datei gelöscht und dienen nur euch zur Übersicht.

Meine Frage daher wie splitte ich das so auf das jeder Wert Sinnvoll in einer eigene Zelle drinsteht?



Mein Code Bisher wie folgt:


Option Explicit
 

Sub InformationenImportieren()

    'Variablen definieren
    Dim QuellDatei As String    'Speicherort der TextDatei
    Dim Zeile As Integer        'Laufvariable
    Dim Inhalt As String        'Inhalt der TextDatei

    
    'Tabellenblatt aktivieren
    ThisWorkbook.Worksheets("Tabelle1").Activate
    
    'Startwerte zuweisen
    Zeile = 4
    
    'QuellDatei ansprechen
    QuellDatei = ThisWorkbook.Path & "\Test1.txt"
    
    'QuellDatei öffnen
    Open QuellDatei For Input As #1
    
    'Informationen ins Tabellenblatt eintragen
    Do While Not EOF(1) 'EOF = EndOfFile
        
        'inhalt der Quelldatei Zeilenweise einlesen
        Line Input #1, Inhalt
        
        'Wert ins Tabellenblatt eintragen
        ActiveSheet.Cells(Zeile, 2) = Inhalt
        
        Zeile = Zeile + 1
    
    Loop
    
    'QuellDatei schließen
    Close #1
    

End Sub

hier wird alles importiert und alles in die erste Zelle einer jeden Spalte geschrieben


Danke Gruß Peter

Beispiel Importdatei:

aufgrund der Länge passt es nicht rein eine Spalte endet immer bei G-FXT für die erste Zeile oder ---->NICHT F/K