Zählenwenn in VBA nachgebaut

Hallo,
ich habe einen Wert in einer Tabellenzelle. Diesen Wert möchte ich nun mit den Werten in einer anderen Tabelle vergleichen. Daran scheitere ich schon :-(
In der angefügten Tabelle habe ich das Problem etwas näher erläutert. Grundsätzlich ist das ein Fall für Countif(). Allerdings haben die Zellen unterschiedliche Wertigkeiten und am Ende wird der Counter ausgewertet und...und...und
Ich hatte mir überlegt, den Wert aus der ersten Tabelle (Cal) an eine Variable zu übergeben, dann die Vergleichstabelle (LoP) zeilenweise zu durchlaufen (siehe händisches Beispiel) und am Ende den ermittelten Wert weiter zu verwenden.
Vielleicht kann mir jemand zumindest mit dem Grundgerüst auf die Sprünge helfen.
Gruß,
PQuest:-)
PS: Tabellenstruktur ist vorgegeben und kann nicht geändert werden.
https://www.herber.de/bbs/user/101032.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function P_Quest(Einzeldatum, Datumsbereich As Range, SpaltenWertigkeit As Range) As Double Dim arrBereich Dim arrWert Dim z As Long, s As Long Dim Wert As Double arrBereich = Datumsbereich.Value arrWert = SpaltenWertigkeit.Value For z = 1 To UBound(arrBereich, 1) Wert = 0 For s = 1 To UBound(arrBereich, 2) If arrBereich(z, s) = Einzeldatum Then _ Wert = WorksheetFunction.Max(Wert, arrWert(1, s)) Next P_Quest = P_Quest + Wert Next End Function

…dem in der BspDatei vorgestellten Ergebnis, Peter;
sollen nur ungleiche Wertigkeiten addiert wdn, das hast du gemacht, oder tatsächlich eine Summe der Wertigkeiten für den Zeilen-Counter gebildet wdn wie im Folgenden?
1 Zeile3: {=WENNFEHLER(MAX(WENN(LoP!A3:F3=Cal!A$3;LoP!A$10:F$10));"")}
0,6 Zeile4: {=WENNFEHLER(SUMME(WENN(LoP!A4:F4=Cal!A$3;LoP!A$10:F$10));"")}
1,3 Zeile5: {=WENNFEHLER(SUMME(WENN(LoP!A5:F5=Cal!A$3;LoP!A$10:F$10));"")}
0,3 Zeile6: {=WENNFEHLER(SUMME(WENN(LoP!A6:F6=Cal!A$3;LoP!A$10:F$10));"")}
3,2 Gesamt: =SUMME(dieserWerte)
Dafür brauchst du auch keine spezielle Zählenwenn-Fkt, schon gar nicht, wenn sie nicht mal allgemeiner einsetzbar ist als ZÄHLENWENN!
Aber viell geht's dir ja um eine Klick-auf-Button-Lösung…?!
Morrn, Luc :-?

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zählenwenn in VBA nachgebaut

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread