Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel-Sortierung

Excel-Sortierung
25.07.2005 13:05:12
marco
Hallo,
habe ein kleines Problem mit excel.
https://www.herber.de/bbs/user/24974.xls ---- ist ein beispiel-Exemplar.
Tabelle 1 wie es momentan ist, Tabelle 2 wie es mal werden soll.
In Spalte A stehen normalerweise Namen. In Spalte B die dazugehörigen Gruppen.
Die Namen in Spalte A können doppelt vorhanden sein, dagegen stehen in Spalte B verschiedene Gruppen.
Das Ziel wäre es, dass in Spalte A nur noch ein Name steht ( keine doppelten Einträge mehr ) und dafür in Spalte B ALLE gruppen, mit Semikolon-Zeichen getrennt, aufgelistet sind.
Das Problem ist eben, die original Datei hat 10000 Namen und da wäre Handarbeit sehr schwer.
Für alle tips und scripts etc danke ich jetzt schonmal im voraus.
gruß

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Sortierung
25.07.2005 13:58:10
Reinhard
Hi Marco,
Zeile 1 klappt nicht, wohl noch ein Fehler im Code, aber wohl kein Problem.
Alt+F11, Einfügen Modul, Code reinkopieren, Editor schliessen. Starten mit Extras--Makro--Makro...

Sub tt()
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
ws1.Rows(1).Copy Destination:=ws2.Range("A1")
zei = 1
For n = 2 To ws1.Range("A65536").End(xlUp).Row
While ws1.Cells(n, 1) = ws1.Cells(n - 1, 1)
ws2.Cells(zei, 2) = ws2.Cells(zei, 2) & ";" & ws1.Cells(n, 2)
n = n + 1
Wend
ws2.Cells(zei, 2) = ws1.Cells(n, 2)
Next n
End Sub

Gruß
Reinhard
Anzeige
AW: Excel-Sortierung
25.07.2005 14:19:24
marco
schonmal danke für die schnelle antwort.
Aber irgendwie funzt es nicht.
Ich habe es sowohl an der Original datei ausprobiert, als auch an der angehängten Test-Datei.
Ich bin genau die Schritte durchgegangen, wie du es beschrieben hast.
Aber in der Tabelle 2 finde ich dann lediglich in A1 = 1 und in B1 = a
mmhhh komisch..
Nu aber *g
25.07.2005 14:53:26
Reinhard
Hi Markco,

Sub tt()
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
ws1.Rows(1).Copy Destination:=ws2.Range("A1")
zei = 1
For n = 2 To ws1.Range("A65536").End(xlUp).Row
While ws1.Cells(n, 1) = ws1.Cells(n - 1, 1)
ws2.Cells(zei, 2) = ws2.Cells(zei, 2) & ";" & ws1.Cells(n, 2)
n = n + 1
Wend
zei = zei + 1
ws2.Cells(zei, 1) = ws1.Cells(n, 1)
ws2.Cells(zei, 2) = ws1.Cells(n, 2)
Next n
End Sub

Gruß
Reinhard
Anzeige
AW: Nu aber *g
25.07.2005 15:04:17
marco
Hi Reinhard,
wow Respekt und herzlichen Dank.
Des scheint nun richtig zu funzen. Werde nochmal die Namen filtern ( ohne das Spalte B relevant ist ), ob die Anzahl der Namen stimmt.
Aber das sieht schon alles sehr komplett aus. Riesen Dank!!
gruß
marco

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige