Alle Produkte mit einem bestimmten Status zählen

Hallo liebe Helfer,
ich habe ein kleines Problem mit VBA und weiß nicht wie ich das lösen kann.
Ich habe eine Tabelle mit Produkten. Jedes Produkt hat seinen eigenen Status (Status A, Status B, Status C,)
Jetzt möchte ich mir anzeigen lassen wie oft und welches Produkt den Status Status A besitzt.
Es gibt zahlreiche Produkte und es kommen immer wieder neue hinzu. D.h. das Programm sollte die Produkte selbst erkennen und zählen können
Die Tabelle sieht wie folgt aus:
Produkt A, Status A
Produkt A, Status B
Produkt A, Status A
Produkt A, Status B
Produkt B, Status A
Produkt B, Status A
Produkt B, Status B
Das Makro filtert und zählt nach Status A und scheibt sie mir in eine neue Tabelle
Status A, Produkt A, Anzahl: 2
Status A, Produkt B, Anzahl: 2
Ich hoffe ihr könnt mir helfen. Mit countif kann ich natürlich die Einträge mit Status A zählen.
Jedoch möchte ich, dass er mir die Einträge mit Status A für jedes Produkt zählt und diese auflistet.
Vielen Dank!!
Schöne Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi zusammen,
ist doch nicht sooo aufwendig.
Das Makro wird mit Doppelklick auf einen Status in der zweiten Spalte aufgerufen und schreibt die Ergebnisse ins Tabellenblatt "Status_Filter":

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim o As Object, o1 As Variant
Dim a As Variant
Dim zmax&, z&
If Target.Row > 1 And Target.Column = 2 And Target.Value  "" Then
zmax = Range("B" & Rows.Count).End(xlUp).Row
a = Range("A1:B" & zmax)
Set o = CreateObject("scripting.dictionary")
For z = 1 To zmax
If a(z, 2) = Target.Value Then _
o(Target.Value & "#" & a(z, 1)) = o(Target.Value & "#" & a(z, 1)) + 1
Next
Sheets("Status_Filter").Cells.Clear
Sheets("Status_Filter").Range("A1") = "Status"
Sheets("Status_Filter").Range("B1") = "Produkt"
Sheets("Status_Filter").Range("C1") = "Anzahl"
z = 2
For Each o1 In o.keys
Sheets("Status_Filter").Range("A" & z).Resize(1, 2) = Split(o1, "#")
Sheets("Status_Filter").Range("C" & z) = o.Item(o1)
z = z + 1
Next
Sheets("Status_Filter").Range("A2:C" & z - 1).Sort _
key1:=Sheets("Status_Filter").Range("B2")
Set o = Nothing
MsgBox "Erledigt. Ergebnis steht in Status_Filter"
Cancel = True
End If
End Sub

Die Datei: https://www.herber.de/bbs/user/103526.xls
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Alle Produkte mit einem bestimmten Status zählen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Produkte mit einem bestimmten Status zählen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread