Office: Zusammenhängende Informationen aus einer Zeile in mehrere Spalten

Guten Tag,
hab ein kleines Problem - soll für die Arbeit eine Tabelle erstellen mit Kundendaten. Problem ist, dass die "Datenbank" die ich hierfür erhalten habe, alle Informationen zu allen Kunden in einer einzigen Zeile gelistet hat (A1-GEB1)
Wäre relativ simpel, wenn jeder Kunde dieselbe Anzahl an Informationen hat - ist hierbei leider nicht der Fall. Einige Kunden haben noch eine Mailadresse oder eine Homepage, andere nicht und hierfür nicht einmal ein leeres Feld..

Ich hätte bereits einige Ansätze mit VBA etc gehabt, die ich zusammen mit ChatGPT erarbeitet habe, hat mir allerdings auch nicht sonderlich weitergeholfen.

Eine Sache die nämlich bei allen Kunden gleich ist, ist der Beginn des Namens - immer entweder "Frau" oder "Herr" am Anfang. Kann ich also irgendwie dafür sorgen, dass die ganzen Daten automatisch untereinander gelistet werden können, immer dann, wenn der Zellinhalt "Mann" oder "Frau" erneut vorkommt?

Manuell fällt leider weg, da es sich um eine relativ große Datenmenge handelt und in Zukunft immer mehr dazu kommen würde..

Liebe Grüße

 

Kannst Du denn ausschließen, dass so etwas vorliegt?:
1) Frau; a; b; c; d; Mann; a; b; d; e; Frau; a; e;

Es müsste dann wenigstens so lauten, damit die Felder am Ziel richtig untereinander stehen:
2) Frau; a; b; c; d; Mann; a; b;; d; e; Frau; a;;;; e;

Oder die Felder tragen jeweils Bezeichner. Dann ginge auch 1).

 

Hola,
3) sorge dafür, dass die "Datenbank" die Daten vernünftig hält/ausgibt - ein Datensatz eine Zeile
Gruß,
steve1da

 

Hallo,

in Zelle A3 folgende Formel:
=TEXTTEILEN(TEXTVERKETTEN("|";1;1:1);"|";{"Mann|";"Frau|"};1; 0;"")


Allerdings wird Excel365 vorausgesetzt. Ich nehme an, dass du ein solches hast, da du keine Versionsangabe gemacht hast.

 

Das könnte knapp werden: =2^15/SPALTE(GEB1) ergibt 6,7 Zeichen an durchschnittlicher Wortlänge, die es höchstens sein darf (inkl. Trenner und sonstiges Gesums).

Schnell und schmutzig:
A3: =LET(x;MTRANS(1:1);VSTAPELN(INDEX(FILTER(HSTAPELN(x;SEQUENZ(ZEILEN(x)));(x="Herr")+(x="Frau"));;2);SPALTE(GEB1)+1))
B3: =INDEX($1:$1;SEQUENZ(;A4-A3;A3)) herunterkopieren!

 

Genau hier sollte man ansetzen.

Bei einer einzigen Zeile hast du 16384 Zellen. Wenn man davon ausgeht, dass eine Adresse 7 Zellen braucht (Anrede Vorname Nachname Straße Hausnummer PLZ Ort), dann ist bei 2340 Adressen Ende Gelände.

Aber ich behaupte mal: keine einzige Datenbank der Welt gibt Adressen auf diese Art aus. Es wird immer unterschiede zwischen einem Feld- und einem Datensatz-Trenner geben. Dann musst du nur dafür sorgen, dass Excel diese sauber einliest. Also zeige einmal den Anfang deiner zu importierenden Datei. Zwei bis drei Adressen reichen. Die Namen und Adressen solltest du natürlich anonymisieren - ansonsten solltest du aber nichts an der Datei verändern. Bitte mit einem Hex-Editor überprüfen, nicht dass "unsichtbare" Zeichen die Felder und Datensätze trennen und diese durch dein Ändern der Namen beeinflusst werden.

 

Hier habe Ich mal die Tabelle einfach nachgebaut - in der originalen sind es nicht nur 2 Personen, sondern 400.
Und wie im Beispiel auch ersichtlich ist - alle Informationen sind in Zeile 1, manche Personen haben gexakt 5 Spalten Informationen, andere stattdessen nur 4.
Dadurch funktioniert leider auch das "Runterziehen" von Formeln nicht so einfach, da die Tabelle kein einheitliches Format für die Daten aufweist..



Liebe Grüße

 

Hi,

Bitte keine Vollzitate. Erst recht nicht vom Beitrag der direkt davor steht.

Sorry falls es nicht deutlich genug rüber kam. Mit "zeige einmal den Anfang deiner zu importierenden Datei" meinte ich nicht ein Bild der bereits in Excel importierten Datei, sondern den Anfang der Ausgangsdatei, also der Datei, die importiert wird. Und auch davon kein Bild, sondern die Datei selbst. Wie das Ding aktuell in deinem Excel aussieht, das kann ich mir schon vorstellen.

 

Hi,
etwas ungünstig ausgedrückt mein erster Beitrag - die sogenannte "Datenbank" ist keine Datenbank, sondern einfach eine, sich im Internet freizugängliche, Auflistung von Personen.
Die Liste habe ich einfach per Copy & Paste eingefügt, wenn ich die ersten paar Zeilen hier einfüge sieht es so aus:

• Entfernung 1
  Name 1
  Adresse 1
  
  Stadt 1
  
  
  Nummer 1
  
  
• Website 1
  
  
  Entfernung 2
  Name 2
  Adresse 2
  
  Stadt 2
  
  Nummer 2
  
  und so weiter..
  

 

Hier ein kleiner VBA Code, mit dem für jeden *Herr" oder jede "Frau" eine Zeile in einer neuen Datei erstellt wird.
Die Dateinamen müssen angepasst werden.

Code:

Option Explicit
Sub test()

    Dim t$, p&, p1&, p2&, pMin&
    p = 2: pMin = 2
   
    Open "d:\#0\mannfrau.txt" For Binary As #1 '<--- anpassen
   
    t = String$(LOF(1), 0)
    Get #1, , t
    Close

    Open "d:\#0\mnNeu.txt" For Output As #1   '<--- anpassen
   
    Do While pMin
        p1 = InStr(p, t, "Herr")
        p2 = InStr(p, t, "Frau")
        If p1 = 0 Or p2 = 0 Then
            pMin = p1 + p2
        Else
            If p1 < p2 Then
                pMin = p1
            Else
                pMin = p2
            End If
        End If

        If pMin Then
            Print #1, Mid$(t, p - 1, pMin - p + 1)
        Else
            Print #1, Mid$(t, p - 1)
        End If
        p = pMin + 1
    Loop
    Close
    MsgBox "Fertig"
End Sub

 

@knolli dankeschön! Muss ich zuhause mal ausprobieren.

Gäbe es bei VBA auch die Möglichkeit, folgendes zu tun?
Immer, sobald das Suchwort "Frau" oder "Mann" in einer Spalte vorkommt, sollen alle folgenden Spalten kopiert und in einer anderen Tabelle eingefügt werden, bis erneut das Suchwort auftaucht (immer inklusive der Spalte, in der das Suchwort vorkommt, da dort neben Mann/Frau auch ein Name steht)

Mit diesem Vorgehen würde mein gewünschtes Ziel theoretisch auch sichergestellt werden. Mit ChatGPT und Co. habe Ich ungefähre Anläufe geschafft, kenne mich allerdings überhaupt nicht in VBA aus, um die fehlerhaften Stellen im Code zu überarbeiten.

 

Hi,

In dem Fall wäre der Link zur Seite nicht schlecht. Aber auch ohne Link: Versuch doch einfach das Ganze mit PowerQuery zu erledigen. Das ist genau für so etwas vorgesehen.

 

Ein Versuch:
Exportiere die Excel-Zeile in eine csv-Datei. (z. B. "data.csv", Trennzeichen Semikolon ;)
Die csv mit meinem VBA-Code bearbeiten, AusgabeDatei (z. B. "dataneu.csv" ) mit Excel öffnen.

 

@knolli Uff, vielen lieben Dank!! Mit dem Code werden die Daten wie gewünscht untereinander ausgegeben.

Problem wäre jetzt nurnoch, dass die Daten einer einzelnen Person alle in einer Zelle stehen. Allerdings stehe Ich dadurch vor einem anderen Problem und kann mal weiter recherchieren, falls Euch nichts einfallen sollte wie Ich dieses lösen kann :)

 

Zeig' die ersten (min 2) echten Zeilen der erstellten csv-Datei.
Sonst kann man nur raten.
Einfach mittels Texteditor öffnen. CSV-Dateien sind reine Textdateien.