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

gleiche Zeilen zusammenfassen und Anzahl

Forumthread: gleiche Zeilen zusammenfassen und Anzahl

gleiche Zeilen zusammenfassen und Anzahl
16.07.2021 17:14:53
Anton
Hallo zusammen,
ich bin leider mal wieder auf eure Hilfe angewiesen,
Es würde mich freuen, wenn sich jemand für mein Problem kurz Zeit nimmt.
Ich möchte über den Button "Zusammenfassen" per VDA-Makro, wie in der Beispieltabelle (https://www.herber.de/bbs/user/147160.xlsm) dargestellt
die identischen Zeilen zusammenfassen, sprich eine Behalten und die Restlichen löschen.
Dafür in Spalte K den Bestand um jede gelöschte gleiche Zeile erhöhen.
Ich denke es macht keinen Unterschied falls manche Zellen der Zeile leer bleiben oder? (wie bei "Somat Spühlmaschinentaps")
Vielen Dank für die Hilfe
Beste Grüße
Anton
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: gleiche Zeilen zusammenfassen und Anzahl
16.07.2021 19:44:02
Steve
Hey,
für das Verständnis, müsste in Tabelle2 bei Bestand der Butter nicht 3 mal eine 1 stehen, damit in Tabelle1 der Bestand als 3 errechnet wird?
Leider habe ich kein Makro in der Datei gefunden.
AW: gleiche Zeilen zusammenfassen und Anzahl
16.07.2021 22:44:45
Anton
Hallo,
ich glaube da ist was mit der Beispieldatei schief gelaufen...
Anbei der richtige Link.
https://www.herber.de/bbs/user/147165.xlsm
Ich denke dann ist es verständlicher :D
Ein Makro ist nicht vorhanden da ich nicht weiß wie ich die Funktion umsetzen soll
Entschuldigung für die Umstände
Gruß Anton
Anzeige
AW: gleiche Zeilen zusammenfassen und Anzahl
17.07.2021 12:26:29
GraFro
Hallo
Nachstehender Code erzeugt Unikate und zählt diese, wie oft sie in Tabelle1 vorkommen. Ergebnis wird in Tabelle2 ausgegeben. Gesucht wird nach Übereinstimmung in 2 Spalten.
Gehr sicher etwas einfacher aber es funktioniert. 

Option Explicit
Sub Gleiche_zusammenfssen()
Dim arrDaten As Variant, arrTmp As Variant
Dim n As Long, x As Long, z As Long
' alle Daten in das Array 'arrDaten' Beginn: arrDaten(1 to count(arrDaten), 1 to 11)
With ThisWorkbook.Worksheets("Tabelle1")
arrDaten = .Range("A3:K" & .Cells(.Rows.Count, 3).End(xlUp).Row)
End With
' Nach welche Kriterien soll verglichen werden
' in diesem Fall: Marke und Artikel werden in einen Stzring zusammengefasst
ReDim arrTmp(1 To UBound(arrDaten), 1 To 1)
For n = 1 To UBound(arrDaten)
arrTmp(n, 1) = arrDaten(n, 4) & "|" & arrDaten(n, 5)
Next n
Dim dicWare As Object
Set dicWare = CreateObject("Scripting.Dictionary")
' Keys enthält die verschiedenen Unkate und der Item wie oft sie vorkommen
For x = 1 To UBound(arrTmp)
dicWare(arrTmp(x, 1)) = dicWare(arrTmp(x, 1)) + 1
Next
Dim arrErg As Variant
ReDim arrErg(1 To dicWare.Count, 1 To 11)
Dim dicItems As Variant: dicItems = dicWare.Items
Dim dicKeys As Variant: dicKeys = dicWare.keys
Dim arrSplit As Variant
For n = 0 To dicWare.Count - 1
arrSplit = Split(dicKeys(n), "|")
For x = 1 To UBound(arrDaten)
If arrDaten(x, 4) = arrSplit(0) And arrDaten(x, 5) = arrSplit(1) Then
' Marke und Artikel stimmen überein ---> Ergebnis in arrErg
For z = 1 To 10
arrErg(n + 1, z) = arrDaten(x, z)
Next z
arrErg(n + 1, 11) = dicItems(n) '---> wie oft kommen sie vor
Exit For
End If
Next x
Next n
' Ausgabe beginnend bei Zelle A2 im Tabellenblat 'Tabelle2'
With Sheets("Tabelle2")
.Range("A3").Resize(UBound(arrErg, 1) - LBound(arrErg, 1) + 1, UBound(arrErg, 2) - LBound(arrErg, 2) + 1) = arrErg
End With
End Sub
mfg GraFri
Anzeige
AW: gleiche Zeilen zusammenfassen und Anzahl
17.07.2021 17:38:51
Anton
Hallo GraFro,
das gefällt mir sehr gut, wäre es möglich alle spalten auf Übereinstimmung zu überprüfen?
Um 100% sicher zu gehen oder ist der Code dann zu aufwendig?
Vielen Dank für die Hilfe
Gruß
Anton
AW: gleiche Zeilen zusammenfassen und Anzahl
17.07.2021 20:28:50
GraFri
Hallo
Ist eigentlich einfacher.

Option Explicit
Sub Gleiche_zusammenfassen_2()
Dim arrDaten As Variant, arrTmp As Variant
Dim n As Long, x As Long
' alle Daten in das Array 'arrDaten' Beginn: arrDaten(1 to count(arrDaten), 1 to 11)
With ThisWorkbook.Worksheets("Tabelle1")
arrDaten = .Range("A3:K" & .Cells(.Rows.Count, 3).End(xlUp).Row)
End With
' Nach welche Kriterien soll verglichen werden
' in diesem Fall: Spalte A bis J werden verglichen
ReDim arrTmp(1 To UBound(arrDaten), 1 To 1)
For n = 1 To UBound(arrDaten)
For x = 1 To 10
arrTmp(n, 1) = arrTmp(n, 1) & arrDaten(n, x) & "|"
Next x
Next n
Dim dicWare As Object
Set dicWare = CreateObject("Scripting.Dictionary")
' Keys enthält die verschiedenen Unkate und der Item wie oft sie vorkommen
For x = 1 To UBound(arrTmp)
dicWare(arrTmp(x, 1)) = dicWare(arrTmp(x, 1)) + 1
Next
Dim arrErg As Variant
ReDim arrErg(1 To dicWare.Count, 1 To 11)
Dim dicItems As Variant: dicItems = dicWare.Items
Dim dicKeys As Variant: dicKeys = dicWare.keys
For n = 0 To dicWare.Count - 1
For x = 1 To 10
arrErg(n + 1, x) = Split(dicKeys(n), "|")(x - 1)
Next x
arrErg(n + 1, 11) = dicItems(n) '---> wie oft kommen sie vor
Next n
' Ausgabe beginnend bei Zelle A2 im Tabellenblat 'Tabelle2'
With Sheets("Tabelle2")
.Range("A3").Resize(UBound(arrErg, 1) - LBound(arrErg, 1) + 1, UBound(arrErg, 2) - LBound(arrErg, 2) + 1) = arrErg
End With
End Sub
mfg GraFri
Anzeige
AW: gleiche Zeilen zusammenfassen und Anzahl
17.07.2021 21:23:55
Anton
Perfekt, viele Dank für die Hilfe
Gruß
Anton

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
Anzeige
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
Anzeige
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
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
2 Tabellen vergleichen,bei unter. Werte farblich
Sven

Hallo,ich habe ein, für mich, großes Problem.
Ich habe 2 Tabellen auf unterschiedlichen WorkSheets.
Jetzt wird die erste Tabelle nach einem Primärschlüssel
mit der zweiten verglichen und falls der Primärschlüssel identisch ist, wird der ganze Datensatz ersetzt.
Jetzt meine Frage: Is...
24.05.2002 07:59:32
Thread-ID: 123294
4 Beiträge
Doppelte Werte zusammen addieren
Pascal

Hallo liebes Forum,
ich hab mal eine Frage. Ich hab eine Datei. Im ersten Tabellenblatt " Zeitprotokoll" befinden sich in der Spalte E Innenauftragsnummern, diese Innenauftragsnummern können auch mehrfach vorkommen.
In der Spalte K befinden sich die dazu gehörigen Zeiten. Jetzt würde...
08.06.2011 12:50:32
Thread-ID: 1217728
2 Beiträge
Anzeige
Werte vergleichen aus verschiedenen Tabellen
Kai

Hallo zusammen,
in Tabelle 1 habe ich unter Spalte E verschiedene Zahlen stehen. In Tabelle 2 habe ich unter Spalte B auch verschiedenen Zahlen stehen. Jetzt möchte ich wissen, welche Zahlen von Tabelle 2 Spalte B auch in Tabelle 1 Spalte E vorkommen. Am besten wäre es, wenn Excel mir bei d...
24.08.2011 08:29:33
Thread-ID: 1227344
3 Beiträge
Anzeige
Tabelle mit gleichen Werten farblich formatieren!
Bobby

Hallo zusammen,
habe folgendes Problem:
Möchte eine Tabelle mittels einer VBA-Prozedur zweifarbig abgrenzen(Grau/Weiss), sodass gleiche Inhalte in Spalte "A", die immer untereinander stehen über die gesamte Zeile farbig von den nächsten anderen Werten abgegrenzen. Die Anzahl der Spalten i...
05.06.2002 18:36:40
Thread-ID: 126266
4 Beiträge
In Spallte zählen und gleiche werte auto. Farbe
Steve

Hallo Forum,
Ich habe wieder eine frage.
Wie kann ich die gleichen einträge (text) in spalte "A" zählen und im nächsten blatt den text mit der summe wiedergeben (A1:A), und auch die gleichen einträge mit einer hintergrundfarbe einfärben? Die hintergrundfarbe könnte man automatisch zuwei...
02.03.2012 19:44:40
Thread-ID: 1253267
2 Beiträge
Gleiche Zahlen zusammenfassen in VBA
Thomas

Hallo liebe Experten!
Ich stehe mal wieder auf dem Schlauch.
Ich habe eine Liste mit Nummern zwischen 1000 und 2000. Zu jeder Nummer gehört eine Mengenangabe.
Die Liste sieht dann z.B. so aus:
A - B
1234 - 4
3241 - 6
5422 - 2
1234- 7
In spalte A die...
05.07.2012 15:38:58
Thread-ID: 1270051
7 Beiträge
Gleiche Zeilen addieren
Steffen

Hallo zusammen,
brauch etwas Hilfe:
Ich möchte innerhalb einer Tabelle jede Zeile auf doppelte Werte prüfen:
Wenn in Zeile 1 Spalten A-D = Zeile 2 Spalten A-D; dann sollen die Werte in Spalte E addiert werden und eine Linie gelöscht werden usw.
26.09.2013 14:30:10
Thread-ID: 1332310
2 Beiträge
Diagramme vergleichen und Werte zurückgeben....
Mesel

Hallo zusammen,
ich habe ine Frage zu Diagrammen, leider habe ich über google nichts gescheites gefunden oder nicht das richtige Stichwort hierzu.
Bei der angehängten Datei habe ich 2 Diagramme:
"Values" entspr. Simulations- bzw. Messwerte, die ich importiere (können unendlich viele...
14.08.2014 13:45:03
Thread-ID: 1376463
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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