Datenimport Textdatei: Datensatz Zeilen in Spalten

Hallo Forumsmitglieder,
ich habe folgendes Problem:
Ich bekomme per Filetransfer regelmäßig eine Textdatei. Diese enthält zwischen einem und 500 Datensätzen.
Das Problem, das ich mit dieser Datei habe, ist, dass ein Datensatz nicht in einer Zeile steht und z.B. durch Tabulator, Komma odg. getrennt ist. Vielmehr ist jeder Datensatz - bestehend aus 21 Feldern - auf 21 Zeile aufgeliedert. Dann folgt ein "-" Zeichen und dann ggf. der nächste Datensatz - wieder aus 21 Zeilen bestehend.
Für meine Auswertung muss ich "natürlich" jeden Datensatz in eine Zeile mit entsprechend 21 Spalten überführen.
Jetzt zum Problem:
Wie transformiere ich die gelieferte Textdatei so, dass ich in einer Excel-Datei pro Datensatz eine Zeile habe? Hierbei ist zu beachten, dass die Textdatei zwischen einem und 500 Datensätzen enthält.
Und dann noch eine Kleinigkeit: Jede Zeile hat natürlich zunächst die Beschriftung des Feldinhaltes und dann kommt der Wert des Feldes. Sobald die Transformation der abgeschlossen ist, müssen natürlich dann pro Datensatzen die Überschriften weg. Als erste Lösung würde ich dies durch "Suchen & Ersetzen" lösen. Wenn es einen anderen Lösungsansatz gibt, freue ich mich über Anregungen.
Hier noch mal beispielhaft das Problem:
Lieferung:
Datensatz1-Zeile1
Datensatz1-Zeile2
Datensatz1-Zeile3
...
Datensatz1-Zeile21
-
Datensatz2-Zeile1
Datensatz2-Zeile2
Datensatz2-Zeile3
...
Datensatz2-Zeile21
-
Benötigt:
Spaltenüberschriften
Datensatz1 Zeile1 Zeile2 Zeile3 ... Zeile21
Datensatz2 Zeile1 Zeile2 Zeile3 ... Zeile21
Ich bedanke mich vorab für die Hilfe
Björn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Text_Import() Dim spalte As Integer Dim zeile As Integer Dim startpos As Integer Dim Labels(255) As String Dim LabelMax As Integer Dim pos As Integer Dim Label As String Dim Wert As String Dim sFile Dim strtxt As String Dim found As Boolean Dim i As Integer 'StartVerzeichnis - bitte anpassen 'ChDrive "c:\" 'ChDir "\temp" 'Dialogfenster Öffnen sFile = Application.GetOpenFilename _ ("alle Dateien (*.txt), *.txt") If sFile <> False Then Close Open sFile For Input As #1 zeile = 2 LabelMax = 0 Do While Not EOF(1) Line Input #1, strtxt pos = InStr(1, strtxt, "'") If pos > 0 Then Label = Left(strtxt, pos - 1) Wert = Right(strtxt, Len(strtxt) - pos) found = False For i = 1 To LabelMax If Label = Labels(i) Then found = True Exit For End If Next If found Then Cells(zeile, i) = Trim(Wert) Else LabelMax = LabelMax + 1 Labels(LabelMax) = Label Cells(1, LabelMax) = Label Cells(zeile, LabelMax) = Trim(Wert) End If End If If strtxt = "-" Then zeile = zeile + 1 Loop Close End If End Sub

hallo nochmal,
diese version löscht aus der ersten zeile die ersten beiden zeichen und macht dann weiter wie gehabt! ansonsten hab ich auf die schnelle auch keinen lösungsansatz!
ohne beispiel kann ich da nicht machen!
rückantwort wäre super
gruss


Sub Text_Import2()
Dim spalte As Integer
Dim zeile As Integer
Dim startpos As Integer
Dim Labels(255) As String
Dim LabelMax As Integer
Dim pos As Integer
Dim Label As String
Dim Wert As String
Dim sFile
Dim strtxt As String
Dim found As Boolean
Dim i As Integer
Dim zeile1 As Boolean
'StartVerzeichnis - bitte anpassen
ChDrive "c:\"
ChDir "\temp"
zeile1 = True
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename _
("alle Dateien (*.txt), *.txt")
If sFile <> False Then
Close
Open sFile For Input As #1
zeile = 2
LabelMax = 0
Do While Not EOF(1)
Line Input #1, strtxt
'die ersten beiden zeichen (steuerzeichen)abschneiden
If zeile1 Then
strtxt = Mid(strtxt, 3)
zeile1 = False
End If
'ende-die ersten beiden zeichen (steuerzeichen)abschneiden
pos = InStr(1, strtxt, "'")
If pos > 0 Then
Label = Left(strtxt, pos - 1)
Wert = Right(strtxt, Len(strtxt) - pos)
found = False
For i = 1 To LabelMax
If Label = Labels(i) Then
found = True
Exit For
End If
Next
If found Then
Cells(zeile, i) = Trim(Wert)
Else
LabelMax = LabelMax + 1
Labels(LabelMax) = Label
Cells(1, LabelMax) = Label
Cells(zeile, LabelMax) = Trim(Wert)
End If
End If
If strtxt = "-" Then zeile = zeile + 1
Loop
Close
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Datenimport Textdatei: Datensatz Zeilen in Spalten

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenimport Textdatei: Datensatz Zeilen in Spalten

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread