Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA mehrere Kriterien Summe

VBA mehrere Kriterien Summe
12.07.2022 11:48:30
Ulli
Hallo Leute,
ich hab aktuell das Problem, dass ich in einer Tabelle gleiche Werte addieren möchte, jedoch nur wenn mehrere Kriterien übereinstimmen. Und anschließend die doppelten Einträge löschen.
Über eine WENNS-Formel ist es zwar machbar, jedoch möchte ich es mit einer VBA Programmierung lösen. Dafür fehlen mir jedoch die nötigen Kenntnisse.
Ich hoffe mir kann jemand weiterhelfen.
Beispiel:
A B C D E 5
A B C D E 12
A - E sind die jeweiligen Kriterien, welche gleich sein müssen um die Werte (5,12) zu addieren.
Ich hoffe die Beschreibung ist ausreichend und möchte mich schon mal bedanken für die Hilfe
Grüße
Ulli

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

Betreff
Datum
Anwender
Anzeige
AW: VBA mehrere Kriterien Summe
12.07.2022 12:04:12
Daniel
Hi
für mich ist deine Beschreibung noch zu ungenau und zuspezifisch, um daraus eine konkrete Lösung zu erarbeiten.
kannst du vielleicht mal genauer Beschreiben, was genau berechnet werden soll?
prinzipiell würde ich die Liste nach den 5 Spalten sortieren, so das gleiche Zeilen direkt untereinander stehen.
dann würde ich in der 7. Spalte die laufende Summe bilden, und dabei nach oben aufaddieren:
G1: =D1+Wenn(A1&B1&C1&D1&E1=A2&B2&C2&D2&E2;G2;0)
diese Formel bis nach unten eintragen.
dann die Spalte kopieren und als Wert einfügen.
dann die duplikate entfernen mit den ersten 5 Spalten als Kriterium
diese Schritte würde ich in VBA ausführen.
also in etwas so (keine Überschrift vorhanden, code nicht getestet

dim s  as long
with ActiveSheet.Usedrange
for s = 5 to 1 step 1
.sort key1:=.cells(1, s), order1:=xlascending, header:=xlno
next
with  .Columns(.columns.Count + 1)
.FormulaR1C1 = "=Sum(RC6,IF(RC1&RC2&RC3&RC3&RC4&RC5=R[1]C1&R[1]C2&R[1]C3&R[1]C3&R[1]C4&R[1]C5,R[1]C,0))"
.formula = .value
end with
end with
ActiveSheet.Usedrange.RemoveDuplicates Array(1, 2, 3, 4, 5), xlno
Gruß Daniel
Anzeige
AW: VBA mehrere Kriterien Summe
12.07.2022 12:35:21
Ulli
Vielen Dank für die schnelle Antwort und sorry für die schlechte Beschreibung.
Ich habe versucht es nochmal ausführlicher darzustellen.
Zur Erklärung: Über eine Eingabemaske werden Störungen erfasst. Hierbei kann man in verschiedenen Dropdowns die einzelnen Kriterien auswählen.
Welche Anlage, Welches Modul der Anlage, Welches Störkriterium, Welche Störart, Welche Störung genau es ist (vorgefertigte Störtexte) und wie lange die Störung dauerte.
Hier ein Beispiel:
Anlage Modul Störkriterium Störart Störtext Stördauer (Min.)
A1 Lader techn. Störung elektrisch Beispiel1 20
A2 Lader techn. Störung elektrisch Beispiel3 30
A3 Greifer Rüsten Umbau 50
A4 Greifer techn. Störung mechanisch Beispiel3 20
A1 Lader Rüsten Umbau 40
A1 Greifer Rüsten Umbau 20
A1 Lader techn. Störung elektrisch Beispiel1 40
A2 Lader techn. Störung elektrisch Beispiel3 20
A3 Greifer Rüsten Umbau 60
Das wäre ein Beispiel der Auflistung in den Dropdowns:
Anlagen: A1, A2, A3, A4,
Modul: Lader, Greifer, Transportband, Roboter
Störkriterium: techn. Störung, Rüsten, orga. Themen, Anlagenstart, Wartung
Störart:
techn. Störung- mechanisch, elektrisch
orga Themen - Personal, Rohteile, Behälter
Wartung - Reinigung, Wartung
Störtext: je Störart verschiedene Störtexte (ca. 10Stk.)
Jede einzelne erfasste Störung erstellt eine neue Zeile mit allen ausgewählten Kriterien.
Nun sollen exakt gleiche Störungen zusammengefasst und deren Stördauer addiert werden.
Im oberen Beispiel wäre dies nur für den Eintrag "A1 Lader techn. Störung elektrisch Beispiel1" gültig, da dieser 2x vorkommt. Hier sollten die Störzeiten addiert werden und nur 1 Eintrag übrig bleiben.
( Als absolutes Zuckerl wäre es ideal, wenn man es anzeigen lassen könnte ( zB in einer extra Spalte) wie oft diese Störung vorgekommen ist, also die Anzahl gleicher Störungen.)
Ich hoffe diese Beschreibung ist nun besser verständlich.
Vielen Dank
Ulli
Anzeige
AW: VBA mehrere Kriterien Summe
12.07.2022 13:06:34
Daniel
Hi
naja, genauso wie ich es vermutet habe.
der Weg sollte passen.
Wenn du die Anzahl benötigst, dann mit einer zusätzlichen Spalte, in welcher du nicht die Stördauer einfach aufsummierst, sondern einfach den Wert 1.
Gruß Daniel
AW: VBA mehrere Kriterien Summe
12.07.2022 13:50:56
Ulli
Habe die Formel mal ausprobiert und eine Datei erstellt,
jedoch so ganz funktionierts bei mir noch nicht.
https://www.herber.de/bbs/user/154106.xlsm
Was muss ich dabei noch ändern?
AW: VBA mehrere Kriterien Summe
12.07.2022 14:28:39
Daniel
Hi
wenn die Schleife rückwärts läuft (von groß nach klein), dann musst du Step -1 einestellen.
wenn du doch ne überschrift hast, dann stelle die nach oben in die Zeile 1 so wie es üblich ist und ändere im Code das Header:=xlno auf Header:=xlyes
wenn die Überschriften so wie im Beispiel abgesetzt untendrunter stehen oder sich noch weitere Inhalte auf dem Blatt befinden, dann mach aus dem .Usedrange ein .CurrentRegion
Gruß Daniel
Anzeige
AW: VBA mehrere Kriterien Summe
12.07.2022 14:35:40
Ulli
Vielen Dank für die ausführliche Hilfe
Gruß
Ulli

307 Forumthreads zu ähnlichen Themen

Filter nach mehr als 2 Kriterien unter VBA
Stephan

Jetzt brauch ich doch Hilfe!
Hab schon im Forum gepostet doch leider keine gewünschte Lösung gefunden.
Ich benötige eine einfach Art und Weise unter VBA nach mehr als 2 Kriterien in einer Spalte zu filtern. Dieser Filter benötigt keine Variablen sondern kann fest (Spalte, Kriterium) def...
02.12.2009 11:38:03
Thread-ID: 1121317
2 Beiträge
Anzeige
VBA Autofilter Kriterienlimitierung aufheben
alex

Hallo alle miteinander.
gibt es eine möglichkeit über VBA die Kriterienlimitierung des benutzerdefinierten autofilter von 2 auf 3 oder 4 zu erhöhen?
hab es mal so versucht, aber ohne erfolg. bekomme einen laufzeitfehler wenn ich mehr als 2 kriterien angebe
Sub test Selection.AutoFil...
15.03.2010 16:01:55
Thread-ID: 1145973
4 Beiträge
VBA:Mehrere Kriterien in Menu lesen können.
Karen

Hallo Forum,
ich benötige eine Hilfestellung bezgl. folgendem Problem:
Ich möchte per Menue Daten eingeben, ändern und lesen können. Das klappt soweit.
Da die Daten nicht alle in einer Zeile stehen, kann ich bisher nur die erste Zeile in dem Menu lesen. Ich erinnere mich, daß es...
31.08.2010 12:55:22
Thread-ID: 1174980
3 Beiträge
Anzeige
Autofilterkriterien / mehr als 2
Toumas

Hallo zusammen,
ich wollte mir per Aufzeichung ein Makro erstellen, welches mir einen Benutzerdefinierten Filter setzt.
Das Problem ist, dass er mir nur zwei Kriterien annimmt, sobald ich das dritte von Hand einfügen möchte (Operator:=xlAnd, Criteria2:="*56**")
Bringt er mir eine Fe...
26.04.2013 10:28:24
Thread-ID: 1310588
6 Beiträge
Nach mehr als 2 Kriterien pro Spalte filtern?
Kasimir

Hallo Leute!
Ich benötige mal wieder Eure Hilfe. Ich möchte nach mehr als 2 Kriterien in einer Spalte filtern. Ich habe hier in der Recherche auch einige Lösungsansätze gefunden, allerdings beziehen die sich immer nur auf Spalten, in denen nur ein Wort in der Zelle steht. Bei mir ist es all...
07.02.2014 07:16:36
Thread-ID: 1348441
9 Beiträge
Mit VBA mehr als 2 Kriterien filtern
Nik

Einen schönen guten Morgen zusammen,
das Thema habe ich jetzt recht lange gegoogelt, aber ich finde trotzdem keine Lösung :-)
Ich habe einen Autofilter, den ich mit VBA steuern möchte. Ein Kriteriumg wird eingelesen mittels Variable:
Selection.AutoFilter Field:=3, Criteria1:="=*" &a...
31.03.2014 09:38:43
Thread-ID: 1355506
7 Beiträge
Zeile per VBA mittels mehrerer Kriterien suchen
Chris

Hallo,
ich habe eine Excel-Tabelle, die in etwa so aussieht:
Spalte A | Spalte B | Spalte C | Spalte D |
Wert A | Wert 1 | Wert a | Ausgabe1 |
Wert A | Wert 1 | Wert b | Ausgabe2 |
Wert A | Wert 2 | Wert a | Ausgabe3 |
Wert B | Wert 1...
05.07.2014 21:49:48
Thread-ID: 1369056
3 Beiträge
Filter mit mehr als 2 "entspricht nicht" Kriterien
Christian

Hallo Zusammen,
ich habe folgende Problem in VBA:
In einer Spalte befinden sich Namen von Mitarbeitern meiner Abteilung.
Nun kann es aber sein, dass auch Namen von Mitarbeitern einer anderen Abteilung in der Spalte auftauchen. Diese Namen sind immer wieder andere.
Nun möchte ich...
25.06.2015 09:47:54
Thread-ID: 1433003
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
2
11
5
8
6
2
9
1
2
2
6
4
1
13
1
5
3
3
2
1
1
1