Namen mit Kriterien finden (VBA)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo MCO,
... für die Lösung ist INDIREKT() hier nicht erforderlich und gehört mE für derartige Lösungen eher in die "Tonne".
Bleibt (momentan) also nur die Formel in H1 und mein Formelvorschlag, wenn man mal davon absieht, dass die Lösung in H2 auch mit INDEX() anstelle INDIREKT() realisierbar wäre.
Was ist aber, wenn im Zellauswertungsbereich der Spalte C (bei Werten Stand"m") nur ein 0 Wert oder eine Leerzelle steht? Dann versagt momentan auch die Formel H1. Bleibt von den bisherigen Formeln also momentan nur (m)eine übrig.
Und für den Fall, das ein "Aufgaben-Index" bei Stand="m" einen 0 Wert ausweist, müßtest Du Dich noch äußern, ob der in die Auswertung als MIN-Wert gehen soll oder nicht. Je nach dem finde ich für meine AGGREGAT()-Formel dann dafür bei Bedarf auch noch eine Lösungsergänzung.
Übrigens ist Dein momentaner Ansatz über Bereichsnamen sowieso inkonsequent (warum keinen Bereichsnamen für "Aufgaben-Index") und im vorliegender Form, wie bereits aufgezeigt, auch nicht ausreichend dynamisch genug (wäre zwar einfach möglich, ist aber mE hier auch gar nicht notwendig).
Gruß Werner
.. , - ...

dim Zelle as range dim Ergebnis as string With Range("A4:C14") .sort Key1:=.Cells(1, 3), order1:=xlascending, Header:=xlyes set Zelle = .columns(2).Find(what:="m", lookat:=xlwhole, searchdirection:=xlnext) if Zelle is nothing then Msgbox "kein Eintrag für ""m"" vorhanden" Else Ergebnis = Zelle.Offset(0, -1).Value Msgbox Ergebnis End if end with

Danke für die Rückmeldung!
In der Praxis müssen noch ein paar Sachen dazu,
Nach jeder Verwendung wird der Index des namens erhöht, damit ändert sich die Reihenfolge, also muß jedesmal neu gefiltert werden.
Außerdem wird das Kriterium als Variable gesetzt, die auch Mehrfachauswahl enthält, es muß also der
kleinste wert von x/y/z gefunden werden.
Der Funktionsaufruf sieht dann so aus:

Public Sub nächster_VK(aufgabe_nr As String, bereich As Range)
Dim krit As Variant
Dim verk As String
On Error Resume Next
Select Case aufgabe_nr
Case "BH": krit = Array("DAG", "Ä")
Case "1":  krit = Array("DAG", "Ä", "m", "muV")
Case "2":  krit = Array("w", "wPio", "wuV")
Case "P2":  krit = Array("w", "wPio", "wuV", "wP", "Kind")
Case "3":  krit = Array("DAG", "Ä", "m", "muV", "w", "wPio", "wuV", "wP")
Case "P3":  krit = Array("DAG", "Ä", "m", "muV", "mP", "Kind")
End Select
Set ws = Sheets("liste")
'ws.Select
ws.Range("A4").AutoFilter field:=2, Criteria1:=krit, Operator:=xlFilterValues 'Filtern mit  _
array
'Sheets(2).Select
zeil = ws.Range("Namen").Rows.Count + Range("Namen").Row - 1
Wert = WorksheetFunction.Aggregate(5, 5, ws.Range("C5:C" & zeil))'kleinster Wert in sichtbaren  _
Zellen
Set gef = ws.Range("C5:C" & zeil).SpecialCells(xlCellTypeVisible).Find(what:=Wert, lookat:= _
xlWhole)
msgbox ws.Cells(gef.Row, "A") 'name

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

	A	B	C
4	Namen	Stand	Aufgaben-index
5	a	w	42081,6995464392
6	b	w	42081,9830385857
7	c	m	42081,3848782723
8	d	wP	42078,1547464353
9	e	Ä	42080,9156163582
10	f	m	42080,2894387148
11	g	wPio	42078,1231585557
12	h	w	42073,9174876032
13	i	m	42081,7925270965
14	j	wP	42073,1494335123

verwendete Formeln
Zelle	Formel	Bereich	N/A
H1	{=INDEX(Namen;VERGLEICH("m"&MAX((Stand="m")*(1/C5:C89));Stand&1/C5:C89;0))}	$H$1
H2	=INDEX(Namen;SUMMENPRODUKT(--(Stand="m");--(1/C5:C89=MAX((Stand="m")*(1/C5:C89)));ZEILE(INDIREKT("1:"&ANZAHL2(Namen)))))
I2	=VERWEIS(9;1/(INDIREKT("C5:C"&ANZAHL2(Namen))=AGGREGAT(15;6;INDIREKT("C5:C"&ANZAHL2(Namen))/--(Stand="m");1));Namen)

definierte Namen
Name	Bezieht sich auf	Tabelle	Z1S1-Formel
Namen	=liste!$A$5:$A$89		=liste!R5C1:R89C1
Stand	=liste!$B$5:$B$89		=liste!R5C2:R89C2

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	H	I
1	Axel
2	Axel	Axel

Namen mit Kriterien finden (VBA)

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

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread