Office: VBA Excel Import Datei ändern

Hallo Zusammen,


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

Das Problem ist das meine Text Datei sehr viele Leerzeichen besitzt. Beispiel siehe Text Datei Anhang (sind wirklich durch Leerzeichen getrennt kein Tap)

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?(Leerzeichen entfernen und durch ; ersetzen ?)


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.

in der Text Datei sind oben noch Name Vorname etc zu sehen. Für diese habe ich in Excel bereits Zellen erstellt wo die Sachen dann rein sollen.
Sie dienen in der Text Datei nur zu Orientierung.

Wäre super wenn mir jemand zeigen könnt wie da meine VBA Kenntnisse gering sind.
Danke, Gruß Peter

:)

 

Hallo Peter,

bei der Textdatei handelt es sich um eine Textdatei mit festen Feldlängen. Diese solltest du vom Hersteller erfahren. Du kannst diese aber auch durch Auswerten der Überschrift selbst ermitteln. Soweit ich sehe haben Name (11 Zeichen), Vorname (21), VBN (11), KLE (21), etc. Und genau so teilst du den Inhalt der ersten Zelle auf.

Gruß
Sigi

 

Hallo Sigi,

danke für deine Antwort klingt logisch mit welcher Anweisung kann man das aufteilen ?

Gruß Peter

 

Hallo Peter,

die Funktion heißt in Excel =Teil(Erstes_Zeichen; Anzahl_Zeichen))
in VBA =Mid(String, Start (as Long), [Length])

Die eingelesene Zeile heißt "Inhalt":
Also: Feld1 = Mid(Inhalt, 1, 11)
usw.

Gruß
Sigi

 

Hallo Sigi,

wahrscheinlich stelle ich mich sau blöd an aber ich bekomme es immer noch nicht hin..
bei meinem Versuch einer Zelle den Wert mit deinem Beispiel zuzuweisen passiert nichts.

Range("N4").Value = Mid(Inhalt, 1, 11)

weist du warum das so ist ?

Danke, Gruß Peter

 

Hallo Peter,

ich weiß ja nicht an welcher Stelle du die Zuweisung vornimmst. Das muss an der richtigen Stelle sein, wann "Inhalt" zur Verfügung steht. Du hast eine Schleife:

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
ActiveSheet.Cells(Zeile, 2) = Mid(Inhalt, 1, 11) 'für Name
ActiveSheet.Cells(Zeile, 3) = Mid(Inhalt, 12, 21) 'für Vorname
ActiveSheet.Cells(Zeile, 4) = Mid(Inhalt, 23, 11) 'usw.

Zeile = Zeile + 1

Loop

 

Schau Dir mal die Importfunktion an:
- Daten / Externe Daten abrufen / Text
- dort: Datei wählen, Importspezifikationen angeben (Feste Breite, Breiten im nächsten Schritt festlegen und WICHTIG! Datentyp pro Spalte festlegen)

Fertig. Kein Makro erforderlich.

 

Hallo Sigi,

Danke! Das Funktioniert ich hatte nicht versanden das Inhalt nicht nur an bestimmten Stellen zu Verfügung steht.
Vielen Dank !