Spalten in Zeilen umwandeln

Guten Morgen,
mein Problem ist nicht ganz so einfach zu lösen wie es klingt. Also:
Ich habe eine Textdatei, die gut 33.000 Zeilen an Datensätzen enthält. Jeder Datensatz ist so aufgebaut:
[username]
Password=xxx
IDFile=name.id
Username=Vorname Nachname
VIP=xyz
Zwischen den Datensätzen befinden sich keine freien Zeilen. Jetzt würde ich gerne diese Textdatei in eine Excel-Tabelle bringen, wobei jeder einzelne Datensatz in einer Zeile verteilt auf mehrere Spalten dargestellt werden soll,
die verschiedenen Datensätze aber in Zeilen:
[username]; Password=xxx; IDFile=name.id; Username=Vorname Nachname; VIP=xyz
[username]; Password=xxx; IDFile=name.id; Username=Vorname Nachname; VIP=xyz
[username]; Password=xxx; IDFile=name.id; Username=Vorname Nachname; VIP=xyz
[username]; Password=xxx; IDFile=name.id; Username=Vorname Nachname; VIP=xyz
(wobei das Semikolon einem Spaltenwechsel entspricht)
Ich kann allerdings diese 33.000 Zeilen unmöglich von Hand bearbeiten und in o.g. Format bringen, ich weiß dass es damit dann keine Probleme geben würde.
Hat jemand eine Idee?
Schonmal vielen Dank für eure Hilfe :)
Liebe Grüße, Christoph

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() On Error Resume Next Dim fs As Object Dim infilename As String Dim infilehandle As Object Dim infilestream As Object Dim zeile As String Dim row As Long, column As Long infilename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Quelliste auswählen") Set fs = CreateObject("Scripting.FileSystemObject") Set infilehandle = fs.GetFile(infilename) If infilehandle Is Nothing Then MsgBox "Fehler beim Öffnen von " & infilename Else Set infilestream = infilehandle.OpenAsTextStream(1, -2) row = 0 Do While Not infilestream.AtEndOfStream row = row + 1 For column = 1 To 5 zeile = infilestream.readline Cells(row, column) = zeile Next column Loop End If End Sub

Sub umsetzer() lngzeil = 1 Do Range(Cells(lngzeil, 1), Cells(lngzeil + 4, 1)).Copy Range(Cells(lngzeil, 2), Cells(lngzeil, 6)).PasteSpecial Paste:=xlAll, Transpose:=True Cells(lngzeil, 1).Delete Shift:=xlToLeft Rows(lngzeil + 1).Delete Rows(lngzeil + 1).Delete Rows(lngzeil + 1).Delete Rows(lngzeil + 1).Delete lngzeil = lngzeil + 1 Loop Until Cells(lngzeil, 1) = "" End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten in Zeilen umwandeln

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread