Office: Daten sortieren

caplio · 2. Februar 2021

Oder per PowerQuery, wenn der TE Excel auf eine neuere Version bringt.

Code:

let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Spalte1", type text}}),
#"Spalte nach Trennzeichen teilen" = Table.SplitColumn(#"Geänderter Typ", "Spalte1", Splitter.SplitTextByDelimiter("+", QuoteStyle.Csv), {"Spalte1.1", "Spalte1.2", "Spalte1.3", "Spalte1.4", "Spalte1.5", "Spalte1.6", "Spalte1.7", "Spalte1.8", "Spalte1.9", "Spalte1.10", "Spalte1.11", "Spalte1.12", "Spalte1.13", "Spalte1.14", "Spalte1.15", "Spalte1.16", "Spalte1.17", "Spalte1.18", "Spalte1.19", "Spalte1.20", "Spalte1.21", "Spalte1.22", "Spalte1.23", "Spalte1.24", "Spalte1.25", "Spalte1.26", "Spalte1.27", "Spalte1.28", "Spalte1.29", "Spalte1.30", "Spalte1.31", "Spalte1.32", "Spalte1.33", "Spalte1.34", "Spalte1.35", "Spalte1.36", "Spalte1.37", "Spalte1.38", "Spalte1.39", "Spalte1.40", "Spalte1.41"}),
#"Geänderter Typ1" = Table.TransformColumnTypes(#"Spalte nach Trennzeichen teilen",{{"Spalte1.1", type text}, {"Spalte1.2", type text}, {"Spalte1.3", type text}, {"Spalte1.4", type text}, {"Spalte1.5", type text}, {"Spalte1.6", type text}, {"Spalte1.7", type text}, {"Spalte1.8", type text}, {"Spalte1.9", type text}, {"Spalte1.10", type text}, {"Spalte1.11", type text}, {"Spalte1.12", type text}, {"Spalte1.13", type text}, {"Spalte1.14", type text}, {"Spalte1.15", type text}, {"Spalte1.16", type text}, {"Spalte1.17", type text}, {"Spalte1.18", type text}, {"Spalte1.19", type text}, {"Spalte1.20", type text}, {"Spalte1.21", type text}, {"Spalte1.22", type text}, {"Spalte1.23", type text}, {"Spalte1.24", type text}, {"Spalte1.25", type text}, {"Spalte1.26", type text}, {"Spalte1.27", type text}, {"Spalte1.28", type text}, {"Spalte1.29", type text}, {"Spalte1.30", type text}, {"Spalte1.31", type text}, {"Spalte1.32", type text}, {"Spalte1.33", type text}, {"Spalte1.34", type text}, {"Spalte1.35", type text}, {"Spalte1.36", type text}, {"Spalte1.37", type text}, {"Spalte1.38", type text}, {"Spalte1.39", type text}, {"Spalte1.40", type text}, {"Spalte1.41", Int64.Type}}),
#"Transponierte Tabelle" = Table.Transpose(#"Geänderter Typ1"),
#"Spalte nach Trennzeichen teilen1" = Table.SplitColumn(Table.TransformColumnTypes(#"Transponierte Tabelle", {{"Column1", type text}}, "de-DE"), "Column1", Splitter.SplitTextByDelimiter("*x", QuoteStyle.Csv), {"Column1.1", "Column1.2"}),
#"Geänderter Typ2" = Table.TransformColumnTypes(#"Spalte nach Trennzeichen teilen1",{{"Column1.1", type text}, {"Column1.2", type text}})
in
#"Geänderter Typ2"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lupo1 · 2. Februar 2021

Hallo Scorefun,

office-hilfe.com/support/threads/string-oder-csv-mit-trennzeichen-per-formel-auf-zellen-aufteilen.22254/

erklärt die 599 und 19 ("raumgreifende Konstanten"). Das mit den Leerzeichen hatte ich auch gesehen und vermutet, dass TE seinen String aus Versehen oder für die Optik hier an der Stelle hart umgebrochen hat. Aber danke für Dein zusätzliches WECHSELN.

Thomasey · 2. Februar 2021

Ich möchte mich nochmals melden:
Die VBA-Lösung ist wirklich gut. Es wäre mir sehr hilfreich, wenn sich diese Lösung noch wie folgt erweitern lässt.

Ausgangsdaten statt bisher nur in A1, so erweitern, dass von A1 bis A15 Ausgangsdaten stehen können.
Das Splitten der Daten bleibt gleich.
Die Ergebnisse sollen dann ab Spalte B ausgegeben werden.

Vielen Dank!
Schöne Grüße
Thomas

aloys78 · 2. Februar 2021

Hallo Thomas,

Ausgangsdaten statt bisher nur in A1, so erweitern, dass von A1 bis A15 Ausgangsdaten stehen können.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst Du mal eine Beispieldatei mit einer entsprechenden und typischen Ausgangslage zur Verfügung stellen?

Ergänzung
Ich habe mal auf die Schnelle die neue Aufgabenstellung nachempfunden, wie ich sie verstanden habe und Dir dafür eine Lösung geschickt.

Thomasey · 2. Februar 2021

Hallo Aloys,

anbei eine Beispieldatei.

Schöne Grüße
Thomas

aloys78 · 3. Februar 2021

Hallo Thomas,

anbei mein Vorschlag.
Und etwas neugierig bin ich schon: wozu dient denn diese Auswertung?

Thomasey · 3. Februar 2021

Hallo Aloys,

das sieht sehr gut aus. Danke!
Allerdings kommt bei meinen Daten, siehe Datei im Anhang, die Fehlermeldung "Index außerhalb des gültigen Bereichs"
Kannst du da bitte nochmal nachschauen?

Die Daten stammen aus einem anderen Programm und sollen für Excel aufbereitet werden.

Danke auch für deine Kommentare im VBA-Code - so kann ich diesen zumindest ein bisschen nachvollziehen. *Smilie

Schöne Grüße
Thomas

aloys78 · 3. Februar 2021

Hallo Thomas,

das Problem liegt an den Ausgangsdaten in Zeile 10 bei folgendem Teil-String
x1162++0*1163
Das doppelte Plus verursacht den Fehler; wird das gelöscht, läuft der Code ohne Fehler durch.
Die primäre Frage ist aus meiner Sicht: ist das auch ein fachlicher Fehler? In diesem Fall sollte der Datenlieferant für "saubere" Daten sorgen!

Thomasey · 3. Februar 2021

Hallo Aloys,

ja, ein fachlicher Fehler.
Der Datenlieferant war ein Student, der die Daten händisch erfasst hat. *boah
Sehen wir ihm bei dieser Datenmenge ein doppeltes Plus nach. *wink.gif*

Nochmals ganz herzlichen Dank.
Deine Arbeit, den Code zu erstellen, spart uns viel Arbeit.

Schöne Grüße
Thomas

PIVPQ · 3. Februar 2021

Hallo Thomas

Oder so?
Bis 1050 sind fertig
und der Rest müsste noch gemacht werden.
Habe heute leider keine Zeit mehr
Wenn du möchtest könnte ich morgen nochmals schauen.

xlph 2.0 · 3. Februar 2021

Oder als UDF.

Bsp-Aufruf:
Code:

=SplitToKeyValue(Tabelle1[H1];"*x";"+";WAHR)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

UDF:
Code:

Public Function SplitToKeyValue(Range As Range, ColumnDelimiter As String, _
RowDelimiter As String, Optional ConvertToNumber As Boolean) As Variant
Dim Collection As Collection
Dim Line As Variant
Dim Cell As Range
Dim Text As String
Dim Lines() As String
Dim KeyValue As Variant
Dim Result() As Variant
Dim i As Long
Dim j As Long
Set Collection = New Collection

For Each Cell In Range.Cells
Text = Cell.Value
If Len(Text) > 0 Then
Lines = Split(Text, RowDelimiter)
For i = LBound(Lines) To UBound(Lines)
If Len(Lines(i)) > 0 Then
KeyValue = Split(Lines(i), ColumnDelimiter)
Collection.Add KeyValue
End If
Next
End If
Next

If Collection.Count > 0 Then
ReDim Result(0 To Collection.Count - 1, 0 To 1)
i = 0
If ConvertToNumber Then
For Each KeyValue In Collection
For j = LBound(KeyValue) To UBound(KeyValue)
If IsNumeric(KeyValue(j)) Then
Result(i, j) = Val(KeyValue(j))
Else
Result(i, j) = KeyValue(j)
End If
Next
i = i + 1
Next
Else
For Each KeyValue In Collection
For j = LBound(KeyValue) To UBound(KeyValue)
Result(i, j) = KeyValue(j)
Next
i = i + 1
Next
End If
End If
SplitToKeyValue = Result
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase · 3. Februar 2021

[...] Deine Arbeit, den Code zu erstellen, spart uns viel Arbeit.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt wäre der richtige Zeitpunkt, ein Teil des Ersparten, an eine Institution zu spenden, welches Wissen der Allgemeinheit kostenlos zur Verfügung stellt.

Hilfe zur Selbsthilfe war das schon lange nicht mehr. Und da das Umgesetzte einem gewerblichen Zweck dient, empfände Ich Deine Geste dann nicht nur als nett, sondern auch fair.

aloys78 · 4. Februar 2021

Hallo Thomas,

Nochmals ganz herzlichen Dank.
Deine Arbeit, den Code zu erstellen, spart uns viel Arbeit.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für die Rückmeldung!
Es freut mich, dass ich helfen konnte.

Dann kannst Du das Thema ja auch formal abschließen.

Office: Daten sortieren

Daten sortieren

Daten sortieren

Daten sortieren

Daten sortieren

Daten sortieren

Daten sortieren - Similar Threads - Daten sortieren

Excel 2016 Daten vom Datum abhängig anzeigen

Daten Sortieren

Daten neu sortieren

Aus PDF importierte Daten einfach sortieren

Daten nach nicht-erster Stelle der Sortierspalte sortieren

Sortieren von Daten

Daten dynamisch blockweise sortieren (mit SORTIEREN und INDEX; auch LET möglich)