Spalten sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten sortieren

26.02.2020 11:40:10

Maria

AW: Spalten sortieren

26.02.2020 12:07:13

Raimund

AW: Spalten sortieren

26.02.2020 13:05:53

Günther

AW: Spalten sortieren

26.02.2020 13:32:41

Markmüller

AW: Spalten sortieren

26.02.2020 14:03:32

Günther

AW: Spalten sortieren

27.02.2020 09:12:49

Markmüller

AW: Spalten sortieren

28.02.2020 12:53:43

snb

AW: Spalten sortieren

29.02.2020 19:02:54

Markmüller

Hinweis

29.02.2020 23:32:52

Uwe

AW: Hinweis

01.03.2020 21:24:08

Markmüller

AW: Hinweis

02.03.2020 00:47:22

Uwe

AW: Hinweis

02.03.2020 11:34:59

Raimund

Moin Markus,
ich habe das mit Power Query gemacht. In Excel 2013 musst du erst einmal bei Microsoft ein/dieses Add-In zum Nulltarif herunterladen, ist dann selbstinstallierend.
Du wirst dich dann einige Zeit mit der doch neuen Thematik auseinandersetzen müssen, denn PQ ist zwar sehr leistungsfähig aber eben auch in vielen Dingen komplett anders. Die einzelnen Schritte sind in einem Seitenfenster (rechts) dokumentiert, die du nach Installation des PQ Siehst.
Ganz grob die einzelnen Schritte, falls du jemanden zur Hand hast, der sich ein wenig mit Datenbanken/SQL auskennt (wobei ich hier nur mit Mausklicks gearbeitet habe):
* Daten einlesen
* Nach Trennzeichen '|' teilen und in Zeilen ausgeben lassen
* Abfrage duplizieren
* Im Duplikat alles AUSSER Luftabgang löschen
* Im Original NUR Luftabgang löschen
* Tabelle Pivotieren, um aus der Spalte 'tech.Daten.1' Überschriften zu machen und die dazugehörigen Daten zuzuordnen.
Ich weiß, das LIEST sich leicht, ist es aber nicht (auch wenn manche Helferlein das behaupten, weil es ihnen leicht fällt). Und ja, den Luftabgang könnte "man" da auch noch irgendwie einbauen (je nachdem, wie sich das darstellen soll). Prinzipiell lässt sich das natürlich auch mit VBA lösen, aber der Aufwand ist gewiss MINDESTENS genau so groß und gewiss nicht so flexibel und zukunftweisend.
Apropos "Brauche aber den 2. Teil auch noch. Oder darf ich dir die komplette Liste senden?" Ich gebe ja gerne Hilfe zur Selbsthilfe in einem Forum, denn DAS ist auch meiner Sicht auch der Sinn eines Forums. Ich weiß auch, dass manche Helfer den Wert ihrer eigenen Leistung gegen null einstufen und kostenlose Komplett-Lösungen liefern. Profitieren tun dann nur die Chefs und die "notleidende Industrie" ... Und wenn du mehr wissen möchtest: Mein Name (hierunter) ist ein Link!
Gruß
Günther

Sub M_snb() sn = Filter(Split(Replace(Join(Application.Transpose(Sheet1.Columns(2).SpecialCells(2)), "|"), _ ": ", ": |"), "|"), ": ") With CreateObject("scripting.dictionary") For j = 0 To UBound(sn) If Not .exists(sn(j)) Then .Item(sn(j)) = .Count Next Sheet3.Cells(1, 2).Resize(, .Count) = .keys sn = Sheet1.Cells(1).CurrentRegion ReDim sq(UBound(sn), .Count + 2) For j = 2 To UBound(sn) sq(j - 2, 0) = sn(j, 1) st = Split(Replace(sn(j, 2), ": ", ": |"), "|") For jj = 0 To UBound(st) - 1 Step 2 sq(j - 2, .Item(st(jj)) + 1) = st(jj + 1) Next Next End With Sheet3.Cells(2, 1).Resize(UBound(sq) + 1, UBound(sq, 2) + 1) = sq End Sub

Sub M_snb() sn = Filter(Split(Replace(Join(Application.Transpose(Sheet1.Columns(2).SpecialCells(2)), " _ |"), _ ": ", ": |"), "|"), ": ") With CreateObject("scripting.dictionary") For j = 0 To UBound(sn) If Not .exists(sn(j)) Then .Item(sn(j)) = .Count Next Sheet3.Cells(1, 2).Resize(, .Count) = .keys sn = Sheet1.Cells(1).CurrentRegion ReDim sq(UBound(sn), .Count + 2) For j = 2 To UBound(sn) sq(j - 2, 0) = sn(j, 1) st = Split(Replace(sn(j, 2), ": ", ": |"), "|") For jj = 0 To UBound(st) - 1 Step 2 sq(j - 2, .Item(st(jj)) + 1) = st(jj + 1) Next Next End With Sheet3.Cells(2, 1).Resize(UBound(sq) + 1, UBound(sq, 2) + 1) = sq End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread