IndexVergleich finde maximalwert ohne Array

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Function MatchMax(MRange As Range, Cnumb As Double, Crit As Range, CRange As Range) ' Mrange= _ Matrix for Index;_ 'Cnumb=Column number of matrix from which to return the value; Crit=Searched Criteria; _ Crange=Search Range for Match Dim TempV As Long Dim TempI As Long Dim TempV2 As Long Dim SubRange As Range Dim lrow As Long Dim ColumnC As Long Dim ColumnM1 As Long Dim ColumnM2 As Long Dim Count As Long Dim i As Long TempV2 = 0 ColumnC = CRange.Column ColumnM1 = MRange.Column ColumnM2 = MRange.ColumnS.Count + ColumnM1 lrow = CRange.Rows.Count Count = WorksheetFunction.CountIf(CRange, Crit) TempI = WorksheetFunction.Match(Crit.Value, CRange, 0) TempV = WorksheetFunction.Index(MRange, WorksheetFunction.Match(Crit.Value, CRange, 0), _ Cnumb) For i = 0 To Count If TempV2

Hallo Sepp,
super! Aggregate kannte ich noch gar nicht... super lösung vielen dank!!
Aber könntest du dir den Code doch einmal ansehen und mir sagen warum ich #wert bekomme?
Als Versuch die gleiche Tabelle wie vorher. Hier der code der die beiden ersten richtig findet und dann einfach abbricht (TempV2 findet den letzten wert (5) nicht)
Hier der code:


Option Explicit
Function MatchMax(MRange As Range, Cnumb As Double, Crit As Range, CRange As Range) ' Mrange= _
Matrix for Index;_
'Cnumb=Column number of matrix from which to return the value;  Crit=Searched Criteria;  _
Crange=Search Range for Match
Dim TempV As Long
Dim TempI As Long
Dim TempV2 As Long
Dim SubRange As Range
Dim lrow As Long
Dim ColumnC As Long
Dim ColumnM1 As Long
Dim ColumnM2 As Long
Dim Count As Long
Dim i As Long
TempV2 = 0
ColumnC = CRange.Column
ColumnM1 = MRange.Column
ColumnM2 = MRange.ColumnS.Count + ColumnM1
lrow = CRange.Rows.Count
Count = WorksheetFunction.CountIf(CRange, Crit)
TempI = WorksheetFunction.Match(Crit.Value, CRange, 0)
TempV = WorksheetFunction.Index(MRange, WorksheetFunction.Match(Crit.Value, CRange, 0),  _
Cnumb)
For i = 0 To Count
TempI = TempI + WorksheetFunction.Match(Crit, Range(Cells(TempI + 1, ColumnC),  _
Cells(lrow, ColumnC)), 0)
TempV2 = WorksheetFunction.Index(Range(Cells(TempI, ColumnM1), Cells(lrow, ColumnM2) _
), _
TempI, Cnumb)
If TempV2 > TempV Then
TempV = TempV2
End If
Next i
MatchMax = TempV
End Function

Public Function MatchMax(ValuesRange As Variant, CriteriaRange As Variant, Criteria As Variant) As Variant Dim vntV As Variant, vntC As Variant Dim lngI As Long, dblTmp As Double On Error GoTo ErrExit vntV = ValuesRange vntC = CriteriaRange If UBound(vntV, 1) <> UBound(vntC, 1) Then GoTo ErrExit For lngI = 1 To UBound(vntV, 1) If vntC(lngI, 1) = Criteria Then If IsNumeric(vntV(lngI, 1)) Then dblTmp = Application.Max(dblTmp, vntV(lngI, 1)) End If End If Next MatchMax = dblTmp Exit Function ErrExit: MatchMax = CVErr(xlErrValue) End Function

HI
ein Denkfehler ist das "For i = 0 To Count"
die Match-Funktion bringt dir einen Fehler, wenn sie den Wert nicht finden kann.
Das bedeutet, dass du das Match auch nur so oft verwenden darfst, wie der Suchbegriff in der Spalte vorkommt, und das wäre "For i = 1 To Count"
allerdings hast du ja das erste Match schon vor Klammer stehen, dh dann wäre es "For i = 2 to Count"
(ich würde hier aber das erste Match in die Klammer mit aufnehmen)
kleiner Tip am Rande: "Count" ist als Variablenbezeichung ungünstig, weil es auch eine VBA-Funktion ".Count" gibt. Das kann zwar funktionieren, aber es kann auch zu Fehlern führen, oder zumindest zu Verwirrung beim Programmierer
So ganz generell zu deinem Code:
die Idee ist war ganz gut, aber wenn man sich ein bisschen tiefer mit VBA auskennt und auch weiss wie die einzelnen VBA-Funktionen funktionieren, dann wird klar, dass allein schon das Worksheetfunction.CountIf und jedes Worksheetfunction.Match intern genau die Schleife ausführen, wie Sepp in seinem Code.
Dh. wenn du erst die Anzahl der Fundstellen ermittelt hast, hat Sepp mit seiner Vorgehensweise schon das vollständige Ergebnis.
Gruss Daniel

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E
1	Eergebnis	Suchwert		Max A wenn B=1	48
2	30	3
3	46	3
4	12	1
5	50	3
6	46	3
7	5	3
8	6	3
9	47	1
10	24	2
11	44	3
12	8	3
13	7	2
14	44	1
15	34	1
16	10	2
17	45	2
18	2	3
19	27	2
20	44	2
21	42	1
22	9	1
23	21	2
24	48	1
25	1	2
26	25	3
27	37	3
28	47	1

	A	B	C	D	E
1	Eergebnis	Suchwert		Max A wenn B=1	48
2	30	3
3	46	3
4	12	1
5	50	3
6	46	3
7	5	3
8	6	3
9	47	1
10	24	2
11	44	3
12	8	3
13	7	2
14	44	1
15	34	1
16	10	2
17	45	2
18	2	3
19	27	2
20	44	2
21	42	1
22	9	1
23	21	2
24	48	1
25	1	2
26	25	3
27	37	3
28	47	1

IndexVergleich finde maximalwert ohne Array

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread