VBA: Maximalwert nach Bedingung

Hallo,
ich mal wieder ..
Also ich habe eine Spalte mit vielen Werten (z.b.D) , in einer weiteren Spalte (z.b.B) stehen Namen die
mehrfach vorkommen.
Ich möchte jetzt den Maximalwert in D errechnen bzw bestimmen in Abhängigkeit vom Namen.
Also z.b welchen Maximalwert hat Fritz (Spalte B) erreicht.
Der Wert soll dan in der Textbox1 angezeigt werden.
Ich habe jetzt schon einges gegoogelt und ausprobiert etc. maxifs geht ja nicht "max(wenn" klappt auch nicht...
irgendwie klappt es einfach nicht.
Das würde mir schon sehr weiterhelfen .
Das Optimum währe eine Lösung wo auch das jüngste Datum berücksichtigt wird
geht aber auch so ;)
Vieleicht weiß ja jemand Rat
Beispieldatei:
https://www.herber.de/bbs/user/144744.xlsm
Viele Grüße Hatrdy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Change() Dim rngFind As Range Dim maximum As Double Dim firstAddress As String With Columns(2) Set rngFind = .Find(ComboBox1, LookIn:=xlFormulas) If Not rngFind Is Nothing Then firstAddress = rngFind.Address Do If maximum firstAddress End If TextBox1 = maximum End With End Sub

Hallo,
Ich habe den Code bei mir eingebunden und angepasst ,
klappt alles prima, Danke :)
Bis auf eins, ich habe in meiner Arbeitsmappe viele Tabellen
und hier soll explizit mit Tabelle4 gearbeitet werden. Das macht er so nicht, ich habe dann Testweise
Tabelle4 auf Aktiv gesetzt ,Worksheets("Tabelle4").Activate, dann geht alles.
Aber kann man nicht im Code die Tabelle direkt ansprechen ohne sie explizit auf aktiv zu setzten ?
Mit dem Datum , es soll der zuletzt eingegebene höchste Wert ausgegeben werden. Beispiel , wenn Fritz
am 10.01. einmal 120 und 90 hat, am 09.01. 150 und am 08.01. 200 müsste als Ergebniss 120 ausgegeben werden, da das die Summe ist die zuletzt als höchster Wert eingegeben wurde.
Viele Grüße Hardy

Private Sub ComboBox1_Change() Dim rngFind As Range Dim maximum As Double Dim firstAddress As String With Worksheets("Tabelle4") Set rngFind = .Columns(2).Find(ComboBox1, LookIn:=xlFormulas) If Not rngFind Is Nothing Then firstAddress = rngFind.Address Do If maximum firstAddress End If TextBox1 = maximum End With End Sub

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich	N/A
F2:F7	{=WENN(ZÄHLENWENN($B$2:B2;B2)=1;MAX(WENN($B$2:$B$7=B2;$D$2:$D$7));"")}	$F$2

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	F
2	140
3	180
4
5
6
7

VBA: Maximalwert nach Bedingung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread