Office: Text zu Excel

Moin,

könnt Ihr mir einen Tipp geben, wie ich diese Text-Datei (siehe unten) in Excel Spalten bekomme?


41
Name Vorname Nachname
Nickname im Forum xxxx
Anzahl Motorräder 1
Adresse Hans- Str., 16, Viern , Hessen , 68777
E-Mail Homer@yxc.com
Telefonnummer (0112) 43456789
Von 08-06-2024
Bis 11-06-2024
Übernachtung im
Doppelzimmer Standard
Bemerkung / Besonderheiten / Sonderwünsche Evtl kommt mein Partner mit,
wird aber kurzfristig entschieden!

42
Name Vorname Nachname
Nickname im Forum xxxx
Anzahl Motorräder 1
Adresse Hans- Str., 16, Viern , Hessen , 68777
E-Mail Homer@yxc.com
Telefonnummer (0112) 43456789
Von 08-06-2024
Bis 11-06-2024
Übernachtung im
Doppelzimmer Standard
Bemerkung / Besonderheiten / Sonderwünsche Ruhiges Zimmer


43
Name Vorname Nachname
Nickname im Forum xxxx
Anzahl Motorräder 1
Adresse Hans- Str., 16, Viern , Hessen , 68777
E-Mail Homer@yxc.com
Telefonnummer (0112) 43456789
Von 08-06-2024
Bis 11-06-2024
Übernachtung im
Einzelzimmer Standard
Bemerkung / Besonderheiten / Sonderwünsche

44
usw. usw.


Danke!

 

es ist eine TXT Datei- Öffne sie einfach.

 

Hallo,

da du keine Excel-Version angegeben hast, nehme ich an, dass du die neueste Version (=Excel365) hast.

Wenn du deine obigen Daten in Spalte A (Zellbereich A1:A41) eines Arbeitsblattes einliest/kopierst, dann kann man folgende Formel anwenden:
=LET(arr;$A$1:$A$41; zlarr;ZEILEN(arr); zlm;AUFRUNDEN(zlarr/14;0); arrm;ERWEITERN(arr;zlm*14;1;0);
MATRIXERSTELLEN(zlm;14; LAMBDA(zl;sp; INDEX(arrm; (zl-1)*14+sp;1))))
Diese Formel ist in die linke obere Ecke des Zielbereiches zu platzieren.
Dabei wird vorausgesetzt, dass die Zahlen in der ersten Zeile eines Textblockes stets im 14-Zeilen-Abstand aufeinander folgen.

Falls jedoch das erste Wort (die ersten Wörter) einer Zeile als Spalten/Feldbezeichnung nicht in den Zielbereich übernommen werden sollen, dann ist statt vorgenannter Formel die folgende zu nehmen:
=LET(arr;$A$1:$A$41; zlarr;ZEILEN(arr); zlm;AUFRUNDEN(zlarr/14;0); arrm;ERWEITERN(arr;zlm*14;1;0);
MATRIXERSTELLEN(zlm;14; LAMBDA(zl;sp; LET(mtt;INDEX(arrm; (zl-1)*14+sp;1);
WENNFEHLER(WENNS(sp=1;mtt; sp=6; TEIL(mtt;8;255); sp<12; TEXTNACH(mtt;" ");
sp=12;TEXTNACH(mtt;{" / "." "};3); WAHR;mtt);"")))))

 

Oder.
=WRAPROWS(A1:A41;14;"")
WRAPSROWS ist die englische Version, keine Ahnung wie es auf Deutsch heißen sollte.

 

Hallo @HSV,

heißt im deutschen Excel: =ZEILENUMBRUCH(A1:A41;14;"")
sofern man die möglicherweise enthaltenen Textköpfe (= Spaltenköpfe) mit umbricht.
(Ersetzt meine erste Formel. Auf diese Funktion habe ich gar nicht gedacht.)

 

Moin

D3

Code:

=WECHSELN(INDEX($A:$A;$C3+D$1);D$2&" ";"")

 

Hallo,

Danke für die vielen Antworten. Ich habe noch Office 2016. Leider ist mein Excel Wissen eingeschränkt und ich schaffe mit keiner Formel ein Ergebnis. Manche Funktionen sind ja noch nicht in meiner Version verfügbar. Ich werde es wohl manuell ändern müssen.
Trotzdem Danke für eure Hilfe.

 

Probier das mal.
=INDEX($A$1:$A$41;14*ZEILE($A1)-(14-SPALTE(A$1));1)

 

Hallo,

zusammen mit den Vorschlägen von HSV und DL_ ergibt das zB. ab Zelle I2 folgende Formel:
=WECHSELN(INDEX($A$1:$A$42;(ZEILE(A1)-1)*14+1+REST(SPALTE(A1)-1;14);1);I$1;"")
wenn in den Zellen I1:U1 die Überschriftenzeile von DL_ steht.

Datei liegt bei.

 

Oder mit VBA:

Code:

Sub Joergen()

    Dim tmp$, Datei$
    Dim ze&, FF%
    Dim b As Boolean

    ze = 3
    b = False
    Datei = "D:\#1\joergen.txt"  '<--- anpassen

    Cells(1, 1) = "ID"
    Cells(1, 2) = "Name"
    Cells(1, 3) = "Nickname im Forum"
    Cells(1, 4) = "Anzahl Motorräder"
    Cells(1, 5) = "Adresse"
    Cells(1, 6) = "E-Mail"
    Cells(1, 7) = "Telefonnummer"
    Cells(1, 8) = "Von"
    Cells(1, 9) = "Bis"
    Cells(1, 10) = "Übernachtung im"
    Cells(1, 11) = "Bemerkung / Besonderheiten / Sonderwünsche"


    FF = FreeFile
    Open Datei For Input As #FF

    While Not EOF(FF)
        Line Input #FF, tmp
        If Len(tmp) Then

            If IsNumeric(Trim$(tmp)) Then
                Cells(ze, 1) = tmp
            ElseIf Trim$(Left$(tmp, 4)) = "Name" Then
                Cells(ze, 2) = Mid$(tmp, 6)
            ElseIf Trim$(Left$(tmp, 4)) = "Nick" Then
                Cells(ze, 3) = Mid$(tmp, 19)
            ElseIf Trim$(Left$(tmp, 4)) = "Anza" Then
                Cells(ze, 4) = Mid$(tmp, 19)
            ElseIf Trim$(Left$(tmp, 4)) = "Adre" Then
                Cells(ze, 5) = Mid$(tmp, 9)
            ElseIf Trim$(Left$(tmp, 4)) = "E-Ma" Then
                Cells(ze, 6) = Mid$(tmp, 8)
            ElseIf Trim$(Left$(tmp, 4)) = "Tele" Then
                Cells(ze, 7) = Mid$(tmp, 15)
            ElseIf Trim$(Left$(tmp, 3)) = "Von" Then
                Cells(ze, 8) = Mid$(tmp, 5)
            ElseIf Trim$(Left$(tmp, 3)) = "Bis" Then
                Cells(ze, 9) = Mid$(tmp, 5)
            ElseIf Trim$(Left$(tmp, 4)) = "Über" Then
                b = True
            ElseIf b Then
                Cells(ze, 10) = tmp
                b = False
            ElseIf Trim$(Left$(tmp, 4)) = "Beme" Then
                Cells(ze, 11) = Mid$(tmp, 44)
                ze = ze + 1
            End If

        End If
    Wend

    Close
End Sub

 

Wenn sich zwischen den Daten jeweils eine leere Zeile befindet.

Keine Ahnung weiter ohne Datei mit dem erwarteten Ergebnis.

Code:

Sub hsv()
Dim sv
Application.DisplayAlerts = False
Range("a1", Cells(Rows.Count, 1).End(xlUp)).Name = "b"
  sv = Split(Join([transpose(b)], vbCr), String(2, vbCr))
   Cells(1, 3).Resize(UBound(sv) + 1) = Application.Transpose(sv)
   Columns(3).TextToColumns , , , , 0, 0, 0, 0, -1, vbCr
   Columns.AutoFit
End Sub