SVERWEIS mit mehreren Ergebnissen per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Anton
Der Trenner hat damit nichts zu tun.
Den hatte ich damals nur mit reingebaut damit man wählen kann wie die Daten getrennt werden.
Habe die Funktion mal auf deine Bedürfnisse umgestrickt:
Jetzt werden auch doppelte erfasst.

Option Explicit
Public Function SVERWEIS2(Kriterium As String, Bereich As Range, SuchSpalte As Integer, _
ErgebnissSpalte As Integer, welcher_wert As Long) As String
'Original von UDO
    Dim arrTmp
    Dim arr()
    Dim L As Long
    Dim z
    z = 1
arrTmp = Bereich
For L = 1 To UBound(arrTmp)
    If arrTmp(L, SuchSpalte) = Kriterium Then
        ReDim Preserve arr(z)
        arr(z) = arrTmp(L, ErgebnissSpalte)
        z = z + 1
    End If
Next
SVERWEIS2 = arr(welcher_wert)
End Function

Der Aufruf geht dann so:

Tabelle1

	A	B	C	D	E
1	4	OOZWO		X	JN0NY
2	X	JN0NY			HJ20D
3	3	T28VU			7A89I
4	4	VZ48P			UTS2Q
5	1	DT8XR
6	1	7M8QM
7	1	TMT4O
8	3	UOE0O
9	3	L4LZJ
10	X	HJ20D
11	1	44XEZ
12	4	6L8E4
13	1	5LGJT
14	1	K22NP
15	2	AQPR3
16	X	7A89I
17	4	U1HG1
18	3	M6B7S
19	1	0QCV6
20	X	UTS2Q

Formeln der Tabelle

E1 : =SVERWEIS2($D$1;$A$1:$B$20;1;2;ZEILE(A1))
E2 : =SVERWEIS2($D$1;$A$1:$B$20;1;2;ZEILE(A2))
E3 : =SVERWEIS2($D$1;$A$1:$B$20;1;2;ZEILE(A3))
E4 : =SVERWEIS2($D$1;$A$1:$B$20;1;2;ZEILE(A4))

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
ransi

hallo

Public Function SVERWEIS2(Kriterium As String, Bereich As Range, SuchSpalte As Integer, _
ErgebnissSpalte As Integer, welcher_wert As Long) As String
'Kriterium As String ist der Begriff der gesucht werden soll
'Bereich ist die Matrix
'Suchspalte ist die Spaltennummer in der Kriterium zu finden ist.
'In diesem Fall in der ersten Spalte von Bereich. Also 1.
'ErgebnissSpalte ist die Spaltennummer in der der passende Wert gesucht werden soll.
'In diesem Fall also inder Zweiten Spalte.
'Alle gefundenen Werte werden in ein Array eingelesen.
'Das passiert hier:
'################
'If arrTmp(L, SuchSpalte) = Kriterium Then
'        ReDim Preserve arr(z)
'        arr(z) = arrTmp(L, ErgebnissSpalte)
'        z = z + 1
'End If
'################
'Welcher_wert sagt einfach nur an welcher Stelle in arr sverweis2() den Wert holen soll.
    Dim arrTmp
    Dim arr()
    Dim L As Long
    Dim z
    z = 1
arrTmp = Bereich
For L = 1 To UBound(arrTmp)
    If arrTmp(L, SuchSpalte) = Kriterium Then
        ReDim Preserve arr(z)
        arr(z) = arrTmp(L, ErgebnissSpalte)
        z = z + 1
    End If
Next
SVERWEIS2 = arr(welcher_wert)
End Function

da brauchst du nichts mehr umbauen.
Das geht auch so:

Tabelle1

	A	B	C	D	E	F	G	H
1	4	OOZWO		X	JN0NY	HJ20D	7A89I	UTS2Q
2	X	JN0NY			1	2	3	4
3	3	T28VU
4	4	VZ48P
5	1	DT8XR
6	1	7M8QM
7	1	TMT4O
8	3	UOE0O
9	3	L4LZJ
10	X	HJ20D
11	1	44XEZ
12	4	6L8E4
13	1	5LGJT
14	1	K22NP
15	2	AQPR3
16	X	7A89I
17	4	U1HG1
18	3	M6B7S
19	1	0QCV6
20	X	UTS2Q
21

Formeln der Tabelle

E1 : =sverweis2($D$1;$A:$B;1;2;SPALTE(A1))
F1 : =sverweis2($D$1;$A:$B;1;2;SPALTE(B1))
G1 : =sverweis2($D$1;$A:$B;1;2;SPALTE(C1))
H1 : =sverweis2($D$1;$A:$B;1;2;SPALTE(D1))
E2 : =SPALTE(A1)
F2 : =SPALTE(B1)
G2 : =SPALTE(C1)
H2 : =SPALTE(D1)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Spalte(A1) ist nur eine Variable die die Formel kopierbar macht.
Habs in zeile2 mal versucht klar zumachen.
ransi

Beliebteste Forumthreads (12 Monate)

SVERWEIS mit mehreren Ergebnissen per VBA

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVERWEIS mit mehreren Ergebnissen per VBA

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread