Office: Text zu Excel

Helfe beim Thema Text zu Excel in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Joergen, 6. Mai 2023.

  1. 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!
     
    Joergen, 6. Mai 2023
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    es ist eine TXT Datei- Öffne sie einfach.

    Text zu Excel GrußformelText zu Excel Homepage
     
    Hajo_Zi, 6. Mai 2023
    #2
  3. Exl121150 Erfahrener User
    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);"")))))
     
    Zuletzt bearbeitet: 6. Mai 2023
    Exl121150, 6. Mai 2023
    #3
  4. HSV
    HSV hat Ahnung

    Text zu Excel

    Oder.
    =WRAPROWS(A1:A41;14;"")
    WRAPSROWS ist die englische Version, keine Ahnung wie es auf Deutsch heißen sollte.
     
  5. Exl121150 Erfahrener User
    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.)
     
    Zuletzt bearbeitet: 6. Mai 2023
    Exl121150, 6. Mai 2023
    #5
  6. DL_
    DL_ PowerQuery Guru
    Moin

    D3
    Code:
    =WECHSELN(INDEX($A:$A;$C3+D$1);D$2&" ";"")
    Text zu Excel office-hilfe_57704.PNG
     
  7. 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.
     
    Joergen, 7. Mai 2023
    #7
  8. HSV
    HSV hat Ahnung

    Text zu Excel

    Probier das mal.
    =INDEX($A$1:$A$41;14*ZEILE($A1)-(14-SPALTE(A$1));1)
     
  9. Exl121150 Erfahrener User
    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.
     
    Exl121150, 7. Mai 2023
    #9
  10. knolli User
    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
     
    knolli, 8. Mai 2023
    #10
  11. HSV
    HSV hat Ahnung
    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
    
     
Thema:

Text zu Excel

Die Seite wird geladen...
  1. Text zu Excel - Similar Threads - Text Excel

  2. nach Absturz + Neustart in Excel Textzeilen verschwunden

    in Microsoft Excel Hilfe
    nach Absturz + Neustart in Excel Textzeilen verschwunden: Hallo zusammen! Ich bitte um Hilfe bei folgendem Problem in Excel: Es gibt Excel Listen die mit Text gefüllt sind und nach einem Absturz und Neustart, bei dem das Programm nicht anders reagierte,...
  3. Excel: längeren Text auf gesamte verbundene Zellen ausbreiten

    in Microsoft Excel Hilfe
    Excel: längeren Text auf gesamte verbundene Zellen ausbreiten: Hallo, ich "missbrauche" Excel gerade wieder für etwas untypisches. Ich bereite für die Band die vorhandenen Sheets in ein "lesbares Format" um. Also bei den vorhandenen hat man halt nur den...
  4. Teil der Daten von Spalte A in Spalte B verschieben

    in Microsoft Excel Hilfe
    Teil der Daten von Spalte A in Spalte B verschieben: Hallo zusammen, ich habe in Spalte A/ Zelle 1 folgenden Textinhalt: P-100-403497-EL30. Gerne möchte ich nun "-EL30" von Spalte A/Zelle1 ausschneiden und in Spalte B/Zelle 1 "EL30" einfügen....
  5. Abfrage in Excel importieren - Werte von mehrwertigen Feldern als Text anzeigen

    in Microsoft Access Hilfe
    Abfrage in Excel importieren - Werte von mehrwertigen Feldern als Text anzeigen: Hallo Ihr Lieben, ich habe verschiedene Felder als mehrwertiges Feld definiert und z.B zusätzliche Tabellen erstellen, aus welchen ich Daten für das mehrwertige Feld ziehe. Nun möchte ich eine...
  6. TXT-Import brauchbar machen

    in Microsoft Excel Hilfe
    TXT-Import brauchbar machen: Hallo zusammen, mein Problem sieht wie folgt aus. In regelmäßigen Abständen erhalte ich Daten als txt, die in Excel importiert werden müssen. Das importierte Format kann nur mit sehr viel...
  7. excel Text summe

    in Microsoft Excel Hilfe
    excel Text summe: Hallo, hoffe hier Hilfe zu bekommen: Zeile B3 bis Af3, enthalten sind Zahlen sowie der Text U8 und U6 Für U8 soll die Zahl 8 addiert werden und für U6 die Zahl 6 Ziffern sollen normal addiert...
  8. Excel: Text zwischen 2 Unterstrichen ausgeben

    in Microsoft Excel Hilfe
    Excel: Text zwischen 2 Unterstrichen ausgeben: Hallo, ich stehe vor der Aufgabe dass ich die Größe der Artikel aus der Artikelnummer ausgeben muss. Die Artikelnummer hat folgende Struktur: AB180_K100_30mm_Elox-schwarz Die Größe steht...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden