Zelleninhalt sortieren

Hallo Zusammen,
ich stehe derzeit vor einem kleinen Sortier-Problem, und zwar habe ich mehrere 100 Excelzellen in einer Spalte, welche mit Locations gefüllt sind. Bspw.:
Z1: Vienna,
Z2: Orth, Vienna,
Z3: Lexington, Vienna, Orth,
Z4: Vienna, Orth,
Z5: Toronto, Orth, Vienna, Lexington
usw. (insgesamt gibt es 9 verschiedene Locations).
Meine Aufgabe: Ich soll in einer Pivot-Tabelle aufzeigen, wie oft welche Kombinationen vorkommen....dabei ist es beim Zusammenzählen der Kombinationen egal, ob A, B, C steht oder B,C,A ..... selbe Locations in einer Zelle = selbe Kombination.
Pivot sieht das natürlich beim Zusammenzählen anders, daher meine Frage:
Wie kann ich die Zellinhalte INNERHALB der Zelle sortieren (zB. alphabetisch)? Hab bei meiner Suche nur einen Beitrag von 2006 entdeckt mit einer Macro-Anleitung, welche mein Wissen leider ein wenig übertroffen hat :(
Vielen Dank vorab für die Hilfe. Ich verwende hier Excel 365 (gab es bei der Version nicht zur Auswahl).
LG
Gregor

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'A1: Mainz, Köln, Tunis 'A2: Tunis, Mainz, Köln Sub Sort() Dim By() As Byte Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Tx = Replace(Replace(Cells(i, 1), " ", ""), ",", "") By = StrConv(Tx, vbFromUnicode) For b = 0 To UBound(By) pos = WSF.Large(By, b + 1) Ty = Ty & Hex(WSF.Large(By, b + 1)) & "|" Next b Cells(i, 2) = Ty Ty = "" Next i End Sub

Hi Fennek,
vielen Dank für die schnelle Antwort.
Mit "Text in Spalten" hatte ich das Problem, dass ich (wenn die A-Spalte alle unterschiedlichen Kombinationen enthält) dann B, C, D Spalten erhalte, in denen zB. in B1 etwas anderes steht als in B2. Und da ich 14 Locations hatte, hätte ich da recht lange herum getan, um danach wieder die Kombinationen zu generieren.
Ich hab zwischenzeitlich folgenden Tipp von einem Kollegen bekommen, der funktioniert hat, aber sicherlich nicht der zeiteffizienteste Weg war, das ganze zu lösen:
Schritt 1: Notieren aller Locations alphabetisch auf einem Zettel
Schritt 2: Neben der Loc.-Spalte 14 leere Spalten einfügen (links).
Schritt 3: Die Spalte mit allen Locations nach der alphabetisch ersten Location filtern. Nun diese Location kopieren und in die leere, ganz linke Spalte einfügen (oberste Zelle und runterziehen)
Schritt 4: Filter wieder weg, Loc-Spalte nach Location B filtern....in die zweitlinkste Spalte einfügen....
usw...
14x ^^. Danach eine 15 Spalte erstellen, =Verketten (A;....;N)....eh voila...eine alphabetische Anordnung aller Locations, mit welcher ich via Pivot Tabelle auch eine Anzahl der Kombinationen auflisten kann.
Werde morgen noch den VBA Ansatz probieren, hab damit aber seit gut 20 Jahren nichts mehr gemacht, daher bin ich wohl a bissl eingerostet.
LG

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread