Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Werte zusammenfassen und Zellposition beib

Forumthread: Gleiche Werte zusammenfassen und Zellposition beib

Gleiche Werte zusammenfassen und Zellposition beib
27.10.2014 09:58:07
Bastian
Hallo liebe Excel Profis,
ich hänge gerade an einer "Baustelle" die ich nicht lösen kann und hoffe, dass ihr mir helfen könnt.
Ich verfüge über eine Liste wie z.B. diese:
------SpalteB---SpalteC---SpalteD---SpalteE
2-----Apfel-------Eins
3-----Apfel-------------------------------Zwei
4-----Birne-------Eins-------Zwei
5----Banane------------------------------Drei
und möchte das ganze dann so zusammenfassen, dass am Ende folgende Liste herauskommt
------SpalteB---SpalteC---SpalteD---SpalteE
2-----Apfel-------Eins-------Zwei
3-----Birne-------Eins-------Zwei
4----Banane------Drei
Im Prinzip (da ich nicht weiß ob die Aufteilung nachher nachvollziehbar dargestellt wird) die "Äpfel" Werte zusammenfassen und die Werte in der ersten Spalte beginnen lassen.
Bananenwert rückt aus E5 in C4, Apfel wird zusammengefasst und der Wert "Zwei" rückt aus E3 in D2. Die Spalten und Zeilenangabe ist willkürlich und nicht bindend.
Ich hoffe das ist ansatzweise verständlich, sonst sende ich auch gerne ein kurzes Bild dazu!
Besten Dank für eure Hilfe und auf bald,
Bastian

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Werte zusammenfassen und Zellposition beib
27.10.2014 12:00:01
Rudi
Hallo,
als Ansatz: 
Sub aaa()
Dim a, i As Long, j As Long, oo As Object, o
Set oo = CreateObject("scripting.dictionary")
a = Range(Cells(2, 2), Cells(2, 2).End(xlDown)).Resize(, 4)
For i = 1 To UBound(a)
For j = 2 To 4
If a(i, j)  "" Then
If oo.exists(a(i, 1)) Then
oo(a(i, 1)) = oo(a(i, 1)) & "|" & a(i, j)
Else
oo(a(i, 1)) = a(i, 1) & "|" & a(i, j)
End If
End If
Next j
Next i
For Each o In oo
a = Split(oo(o), "|")
Cells(Rows.Count, 10).End(xlUp).Offset(1).Resize(, UBound(a) + 1) = a
Next
End Sub

Gruß
Rudi
Anzeige

Forumthreads zu verwandten Themen

Gleiche Zeilen zählen und Werte zusammenzählen
asz

Hallo,
ich habe ein Problem: Ich habe eine Liste wie die folgende:
https://www.herber.de/bbs/user/62689.xls
Es handelt sich jeweils um mehrere Exemplare desselben Buches/Titels. In Spalte I stehen die Ausleihzahlen der einzelnen Exemplare. Ich würde nun gern in einem neuen Blatt au...
23.06.2009 16:26:09
Thread-ID: 1083867
2 Beiträge
Gleiche Zeilen zählen und Werte zusammenzählen
asz

Hallo,
ich habe ein Problem: Ich habe eine Liste wie die folgende:
https://www.herber.de/bbs/user/62689.xls
Es handelt sich jeweils um mehrere Exemplare desselben Buches/Titels. In Spalte I stehen die Ausleihzahlen der einzelnen Exemplare. Ich würde nun gern in einem neuen Blatt au...
23.06.2009 16:19:45
Thread-ID: 1083868
5 Beiträge
Gleiche Werte in Spalte markieren
Larissa

Hallo,
ich möchte mit einem Makro in einer Spalte alle Zellen mit dem gleichen Wert markieren.
Mit meinem Makro wird nur die erste Zelle mit dem Wert markiert:
Dim Belegnr As String
Belegnr = ActiveCell.Offset(0, -14)
Sheets("Kontierung").Select
Range("B:B").Find(Belegnr...
27.09.2009 22:24:30
Thread-ID: 1105923
8 Beiträge
Makro um Zeilen mit gleichem Inhalt zu kopieren
christian

Hallo,
vielleicht kann mir jemand von euch helfen....
Ich habe eine Ausgangstabelle mit verschiedenen Produktnummern in Spalte A und unterschiedlichen
anderen Informationen in den Spalten B-U. Die Daten in dieser Tabelle habe ich sortiert, so dass in Spalte
A alle gleichen Produ...
15.10.2009 18:56:31
Thread-ID: 1109906
8 Beiträge
Anzeige
anzahl gleiche zahlen pro spalte
erick

hallo gemeinde,
in spalte A habe ich ls-nummern.
ich möchte in spalte H auf höhe der ersten zeile
mit treffer die anzahl der ls in spalte A zählen. wie?
A B c d e f g h I
205934010 19.11.2009...
08.12.2009 14:13:11
Thread-ID: 1122404
3 Beiträge
gleiche Zelleninhalte aufzählen
Mar

Hallo alle,
Ich habe ein Problem beim Erfassen eines Formels um die Spalte C wie folgendes aufzustellen:
Spalte A Spalte B Spalte C
Kunde(Q) Kunde(Z) Häufigkeit
a b 3
a...
10.06.2010 00:20:53
Thread-ID: 1161180
7 Beiträge
gleiche Zelleninhalte aufzählen
Mar

Hallo alle,
Ich habe ein Problem beim Erfassen eines Formels um die Spalte C wie folgendes aufzustellen:
Spalte A Spalte B Spalte C
Kunde(Q) Kunde(Z) Häufigkeit
a b 3
a...
10.06.2010 04:59:37
Thread-ID: 1161183
2 Beiträge
gleiche Zahlen zusammenfassen
Karl

Guten Tag!Ich finde aus meinem Problem kein Ausweg. Vielleicht kann mir jemand helfen.Wie fasse ich Zahlen, die mit der gleichen Ziffer beginnen in einer extra Tabelle zusammen.
24.04.2002 16:26:05
Thread-ID: 116008
3 Beiträge
Die ersten drei gleichen Werte in Spalte M löschen
Rolf

Hallo Excel Experten,
kann mir jemand beim Umbau dieses Makros helfen?
Oder kennt jemand eine einfachere Lösung für mein Problem.
Ich möchte immer die ersten drei gleichen Werte in Spalte M löschen (das heißt die komplette Zeile löschen) und alle anderen Werte in der Tabelle behalte...
09.05.2002 11:19:31
Thread-ID: 119732
2 Beiträge
Beschriftung Liniendiagramm gleiche Werte
Suzette

Hallo Ihr Lieben,
vor einiger Zeit hat mir folgender Code super geholfen:
Sub Beschriftung() Dim chrDiagramm As Chart Dim arrWerte1 Dim arrWerte2 Dim intPunkt As Integer Set chrDiagramm = Worksheets("Kosten").ChartObjects(1).Chart With chrDiagramm arrWerte1 = .SeriesCollection("2009").V...
28.08.2010 09:11:00
Thread-ID: 1174557
2 Beiträge
Zellen mit gleichem Inhalt
Tobson

Hey
hab folgendes Problem, in meiner ersten Zeile stehen jeweils die Überschriften der Spalten. Ich will nun die Anzahl der Spalten herausfinden, in den das Wort "Level" in der Überschrift vorkommt. Level steht nicht als einzelnes Wort da, sondern ist beispielsweise um "0-Test" erweitert. B...
21.10.2010 15:59:33
Thread-ID: 1183374
3 Beiträge
Zellen mit gleichem Inhalt zählen
addi23

Hallo Zusammen,
ich habe zwei kleine Frage, die für Euch sicherlich ein Kinderspiel sind:
1. In einer großen Exeldatei möchte ich in einem Bestimmten Bereich (z.B. eine komplette Spalte, oder ein markierter Bereich) die Anzahl unterschiedlicher Zellwerte ermitteln.
2. In der selben...
19.04.2011 15:18:58
Thread-ID: 1211066
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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