Zeilen zusammenfügen, aber in einer Zelle Aufzählung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Umwandeln() Dim arr Dim dic As Object Dim z As Long Dim ID As String Dim OrtsListe As String Const TZ As String = ", " Set dic = CreateObject("scripting.dictionary") Dim Ort With Sheets("Rohdaten").Cells(1, 1).CurrentRegion arr = .Value For z = 2 To UBound(arr) ID = arr(z, 1) OrtsListe = dic(ID) For Each Ort In Split(arr(z, 4), TZ) If InStr(TZ & OrtsListe & TZ, TZ & Ort & TZ) = 0 Then If OrtsListe > "" Then OrtsListe = OrtsListe & TZ OrtsListe = OrtsListe & Ort End If Next dic(ID) = OrtsListe Next For z = 2 To UBound(arr, 1) arr(z, 4) = dic(arr(z, 1)) Next .Value = arr .RemoveDuplicates 1, xlYes End With End Sub

In der Datei, die du zuerst gezeigt hast, war der Firmenname in Spalte A (=Spalte 1)
Daher habe ich den Code auch so geschrieben, dass er die Werte aus dieser Spalte als ID für das Dictionary und als Kriterium für das Duplikate-entfernen verwendet.
Wenn du jetzt deine Datei nachträglich änderst, musst du natürlich auch den Code entsprechen anpassen und hierfür dann die Passende Spalte einsetzen.

Das ist dein Job, ich kann ja nicht jedesmal dabei sein, wenn du die Spaltenanordnung deiner Tabelle änderst, daher musst du das machen. Ich beziehe mich immer auf die Beispieldatei der Eingangsfrage.

Probier's also mal selber, finde heraus was die Spaltenabgaben im Code sind und ändere diese
Es sind nur drei Stellen im Code.

Oder ist es so, dass die Anordnung deiner Tabelle Ständig wechselt und man daher im Code gar nicht auf feste Spalten gehen kann sondern diese aus den Überschriften ableiten muss?

Gruß Daniel

let Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content], Standorte_aufteilen = Table.ExpandListColumn(Table.TransformColumns(Quelle, {{"Standorte", Splitter.SplitTextByDelimiter(", ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Standorte"), Duplikate_entfernen = Table.Distinct(Standorte_aufteilen), Auswertung = Table.Group(Duplikate_entfernen, {"Firma", "Unternehmensform", "Branche"}, {"Alle Orte", each Text.Combine(_[Standorte],", "),type text}) in Auswertung

Hi Werner,

ja, seit dem 1.1. bin ich nun wirklich "Arbeitslos" :-) auch wenn mein Rentenbeginn schon eher war. Ich hatte mir aber als Minijobber ein regelmäßiges (Zusatz-) Einkommen gesichert :-) Zu Corona-Zeiten war ja immer mal Unterstützung im Gesundheitswesen gesucht und blutrünstig wie ich bin, hab ich als Fahrer angefangen und Laborproben von Arztpraxen in ein Labor gebracht. Das ist nun zum Jahresende ausgelaufen :-(

Da schaue ich nun wieder etwas abseits vom CEF nach Excel-Aufgaben. Hier bei Herber bin ich ja schon vor über 22 Jahren eingestiegen :-) Anfangs als andre, 2004 hab ich dann auf schauan umgeswitcht. Da finde ich mich auch noch im Archiv, ab dem 20.03.2004. Hier war ich noch bis 2007 sehr aktiv, dann bin ich in Berti's CF gewechselt und habe hier nur noch wenig gemacht. Zwischen 2014 und 2024 steht dann nur ein Beitrag von mir hier :-(

Ich hab da noch alte Antworter- bzw. Beitragslisten aus 2002 gefunden, da stand ich ich schon unter den top 10 drin, mein Einstieg muss also noch einige Zeit vor 2002 gewesen sein. Habe in meinem alten Archiv neben anderen Dateien auch noch meinen html-Signaturcode gefunden - siehe hier unten. Da Hans glaube seit ca. 2002 nichts an der Ablagestruktur der uploads geändert hat, funktionieren die Links auf hochgeladene Dateien immer noch. Kann auch sein, dass erst seit da die Uploads möglich waren.

Tut sich ja auch immer mal was. Es gab z.B. mal einen Plaudern-Bereich - aber dass der wieder abgeschafft wurde, war auch ok. Der Ton dort von einigen usern war nicht gerade vom feinsten. Beiträge wurden früher in einen gesonderte Forenbereich geschoben und konnten nicht mehr beantwortet werden - ich schlug damals die Sache mit dem Status unbeantwortet vor (vielleicht auch ein paar andere). Die Hitlisten wurden dann auch abgeschafft - auch ok. Wir haben die Beitragszähler im CEF ja auch unterdrückt, um den "Hithuntern" etwas entgegen zu wirken ;-)

Und wer weiß, was noch alles war - ich muss jetzt erst mal Kaffee kochen, meine Frau kommt gleich von der Arbeit :-)

Aber keine Angst, das kommt sicher nicht nochmal :-)

Grüße

Beliebteste Forumthreads (12 Monate)

Zeilen zusammenfügen, aber in einer Zelle Aufzählung

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen zusammenfügen, aber in einer Zelle Aufzählung

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread