Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Anzahl zusammenzählen mit Bedingung

Anzahl zusammenzählen mit Bedingung
19.10.2016 09:29:45
Katrin
Hallo!
Ich brauche eure Hilfe. Mein Kopf raucht und ich weiß nicht weiter. Ich habe es mit WENN, ZAHLENWENN, SUMMENWENN(S) etc probiert, aber ich glaube, ich kann nicht um die Ecke decken.
In meiner anliegenden Datei möchte ich gern die Anzahl der Einträge in Spalte D haben. Das wäre 11. Allerdings soll es so gezählt werden, dass, wenn ein Name (Spalte B) auf mehrere Einträge in Spalte D kommt, dies nur einfach gezählt wird.
Leitfrage: Wieviele Personen haben einen Eintrag in Spalte A?
Es soll also 5 raus kommen, weil Rouge, Laurent keinen Eintrag hat.
Habt ihr eine Idee?
Ich wäre euch unendlich dankbar!
https://www.herber.de/bbs/user/108867.xlsx
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
per Arrayformel
19.10.2016 10:30:24
WF
Hi,
{=SUMME(1*(VERGLEICH(WENN(D2:D99"";B2:B99;"");WENN(D2:D99"";B2:B99;"");0)=ZEILE(1:98)))-1}
Salut WF
oder per VBA
19.10.2016 10:37:20
ChrisL
Hi Katrin
Keine performante Lösung, aber vielleicht hilft es:
Sub t()
Dim iZeile As Long, iiZeile As Long
Dim bDoppel As Boolean
Dim iCounter As Long
For iZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(iZeile, 4)  "" Then
bDoppel = False
For iiZeile = 2 To iZeile
If iiZeile  iZeile And Cells(iiZeile, 4)  "" And _
Cells(iZeile, 1) = Cells(iiZeile, 1) And _
Cells(iZeile, 2) = Cells(iiZeile, 2) And _
Cells(iZeile, 3) = Cells(iiZeile, 3) Then
bDoppel = True
Exit For
End If
Next iiZeile
If Not bDoppel Then iCounter = iCounter + 1
End If
Next iZeile
MsgBox "Ergebnis: " & iCounter
End Sub

cu
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige