sverweis mit zählenwenn?

Hallo zusammen,
erstmal möchte ich Euch allen herzlichst danken. Die letzten Jahre hat mir dieses Forum und Eure Hilfsbereitschaft enorm weitergeholfen! Bisher konnte ich sämtliche Probleme über die Suche lösen, habe aber leider zu meinem aktuellen Problem nichts gefunden. Daher möchte ich meinen ersten Beitrag eröffnen!
Gegeben ist eine Zelle die mehrere Wörter enthält (Estoffe: z.b. E110, E120b, E140 etc.)
Dazu soll mir in einer anderen Zelle durch z.B. sverweis die dazugehörige Bedeutung des Wortes ausgegeben werden. Eine Tabelle dafür ist bereits angelegt. E110 wäre ein Farbstoff. Wenn in Zelle A1 also das Wort E110 vorkommt soll in Zelle A2 Farbstoff erscheinen. Soweit eigentlich easy. Es kann allerdings sein, dass E110 mehrfach in der Zelle enthalten ist und auch andere Estoffe bei denen es sich um einen Farbstoff handelt.
Wie kann ich also sicher stellen, dass in Zelle A2 das Wort Farbstoff nur einmal vorkommt und wie kann ich nach ca. 500 verschiedenen Estoffen filtern die alle verkettet in Zelle A1 vorkommen könnten? möglich wäre es mit Zählenwenn und oder... aber die Formel wäre 2 Kilometer lang....
ich hoffe Ihr kennt eine einfache Lösung. Ich hänge mal eine Beispieldatei an.
Vielen Dank vorab
https://www.herber.de/bbs/user/100933.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function EStoffe(strStoffe As String, Daten As Range) Dim tmp, i As Integer, objStoffe As Object Set objStoffe = CreateObject("scripting.dictionary") tmp = Split(strStoffe) For i = 0 To UBound(tmp) objStoffe(Application.VLookup(tmp(i), Daten, 2, 0)) = 0 Next EStoffe = Join(objStoffe.keys, vbLf) End Function

Hi
eine "einfache" Lösung gibt's da nicht, zumindest nicht mit den Standard-Excelfunktionen.
Excel ist für so eine Textverarbeitung noch nicht ausgelegt (zumindest für den mir bekannten Stand 2010)
mit VBA siehts da etwas anders aus, dh man könnte sich hier relativ einfach eine Funktion programmieren die das macht.
1. kopiere den gezeigten Code in ein allgemeines Modul deiner Datei.

Function fürDenys(Wörter As String, Datenbank As Range) As String
Dim Wort
Dim dicErgebnis As Object
Dim rng As Range
Set dicErgebnis = CreateObject("Scripting.dictionary")
For Each Wort In Split(Wörter, " ")
Set rng = Datenbank.Columns(1).Find(what:=Wort, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then dicErgebnis(rng.Offset(0, 1).Value) = 0
Next
fürDenys = Join(dicErgebnis.keys, vbLf)
End Function

dir steht dann in dieser Mappe die Funktion fürDenys zur verfügung, welche du wie eine normale Excelfunktion nutzen kannst.
dh in die Zelle D8 kommt die Formel:

=fürDenys(D7;D18:E26)

der erste Parameter ist die Zelle mit den Texten, der zweite Parameter ist der Zellbezug zur Datenbank mit allen E-Nummern und deren Text in der zweiten Spalte.
Gruß Daniel

Function fürDenys(Wörter As String, Datenbank As Range) As String Dim Wort Dim dicErgebnis As Object Dim rng As Range Set dicErgebnis = CreateObject("Scripting.dictionary") For Each Wort In Split(Wörter, " ") Set rng = Datenbank.Columns(1).Find(what:=Wort, lookat:=xlWhole, LookIn:=xlValues) If Not rng Is Nothing Then dicErgebnis(rng.Offset(0, 1).Value) = 0 Next fürDenys = Join(dicErgebnis.keys, vbLf) End Function

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

sverweis mit zählenwenn?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread