Office: schwierige SVERWEIS Formel

Hallo zusammen,

folgende Problem.

Ich habe eine Excelliste in Spalte A stehe verschiedene Artikel in einem anderen Tabellenblatt stehen verschiedene Waregruppen. In Spalte B neben den Artikel will ich nun den einzelnen Artikel Warengruppen zuordnen. Es kommt vor das 1 Artikel in mehrere Waregruppen gehört. Ich geben also z.B bei dem ersten Artikel in Spalte B ein 5,10,20 so der Artikel gehört also in Waregruppe 5 in 10 und in 20. So nun benötige ich eine Formel die mir nun in Spalte C die Warengruppenbezeichnung für Warengruppennummer 5 für 10 und für 20 reinschreibt. In Tabellenblatt Waregruppen steht in Spalte A die Warengruppennummer in Spalte B die Warengruppenbezeichnung.

Die Formel sollte also so ähnlich wie ein SVERWEIS funktionieren sich aber auch immer die Werte die nach dem Komma stehen neu als den Warengruppen heraussuchen und dann alle waregruppen in eine Zelle schreiben.

Hoffe ich habe das verständlich erklärt.

Vielen Dank schonmal.

 

Hallo!

Ich hoffe, ich habe es richtig verstanden... :-D
Mit heißer Nadel und ohne Fehlerabfang:

Arbeitsblatt mit dem Namen 'Daten'
	A	B	C
1	Artikel	Nummern	Gruppen
2	Brot	5,10,20	eee,jjj,ttt
3	Milch	1,2,3	aaa,bbb,ccc
4	Hefe	12,11,10	lll,kkk,jjj
5

Zelle	Formel
C2	=xyz(B2;Warengruppen!A:A;1)
C3	=xyz(B3;Warengruppen!A:A;1)
C4	=xyz(B4;Warengruppen!A:A;1)

Arbeitsblatt mit dem Namen 'Warengruppen'
	A	B
1	Nummer	Bezeichnung
2	1	aaa
3	2	bbb
4	3	ccc
5	4	ddd
6	5	eee
7	6	fff
8	7	ggg
9	8	hhh
10	9	iii
11	10	jjj
12	11	kkk
13	12	lll
14	13	mmm
15	14	nnn
16	15	ooo
17	16	ppp
18	17	qqq
19	18	rrr
20	19	sss
21	20	ttt

Code:

Function xyz(Krit As String, Such As Range, SpOffset As Integer)
    Dim ArrIn, e, Zelle As Range
    ArrIn = Split(Krit, ",")
    For Each e In ArrIn
        If Not Such.Find(e) Is Nothing Then
            xyz = xyz & Such.Find(e).Offset(0, SpOffset) & ","
        End If
    Next
    xyz = Left(xyz, Len(xyz) - 1)
End Function

Ich denke, deine VBA-Kenntnisse reichen aus, um die UDF deinen Verhältnissen anzupassen.
Falls aber nicht, dann werde ich es gerne näher erklären, nur weiß ich nicht, wann ich dazu kommen werde, da ich momentan seeehr eingebunden bin.

 

Hallo schatzi,

du hast es absolut richtig verstanden, habe es schon umgebaut.
Vielen Dank für die wie immer sehr gute und kompetente Antwort.

Gruß