Office: Wörter suchen, wenn ein Wort gefunden, bestimmten Wert in Spalte ausgeben

Hallo zusammen,
freue mich auf Hinweise wie ich folgendes lösen kann.

Bestimmte Wörter suchen in eine Spalte voller Text
Wenn eines der Wörter gefunden wurde dann möchte ich ein anderes dem Wort zugeordnetem Wort in einer Spalte ausgeben

Tabelle 1
Spalte A - Text in dem die Wörter gesucht werden sollen ab Zeile 2

Tabelle 2
Spalte A Zeile 2 - das einzutragene Wort
Spalte B Zeile 2 - zu suchendes Wort, zu suchendes Wort, zu suchendes Wort, zu suchendes Wort

Grüße und Dank
Excel 2019

 

Hola,
hier wäre eine Excel-Beispieldatei sinnvoll.
Gruß,
steve1da

 

Ola!
hier mal eine Beispieldatei...
Grüße

 

Vielleicht sagt die Beispieldate mehr aus..

 

Hallo,

da du keine Excel-Version angegeben hast, habe ich angenommen, dass du die neueste (=Excel365 bzw. ExcelWEB) hast.

Im Arbeitsblatt "Tabelle2" habe ich die Tabelle im Bereich A1:B3 zu einer strukturierten Tabelle namens "tbErsatzWortlisten" umgewandelt. Das hat den Vorteil, dass du beliebig viele Ersatz/Wortlisten-Zeilen anfügen kannst, ohne die Formeln im Arbeitsblatt Tabelle1 ändern zu müssen.

Ferner habe ich dir im Namensmanager 2 benutzerdefinierte Funktionen eingefügt. Im Folgenden sind sie (mit Hilfe eines Add-In von Microsoft) etwas übersichtlicher dargestellt (als im Namensmanager):


Im Arbeitsblatt "Tabelle1" habe ich in Zelle B2 folgende Formel eingefügt:
=WENNFEHLER(SuchenErsetzen(A2;tbErsatzWortlisten);"Leer")
und diese in die weiteren Zellen B3:B5 kopiert.

Falls du kein Excel365 hast, müsstest du per VBA unter Einbindung "Regulärer Ausdruck"-Objekte eine Lösung programmieren. Was ich aber nicht machen werde, da es doch um Einiges aufwändiger ist als vorgenannte Formellösung.

Modifizierte Datei liegt bei.

 

Hallo,

ich habe dir eine verbesserte Funktion im Namensmanager gespeichert:
Falls es mehrere unterschiedliche Ersetzungsmöglichkeiten gibt, werden die jetzt aufgelistet.
In Zelle Tabelle1!B2 habe ich ein solches Beispiel aufgenommen - im Vergleich zu Tabelle1!D2 (bisher).
Neue Formel in B2: =FilterSuchenErsetzen($A2;tbErsatzWortlisten;"-- nichts --")

 

Hallo dww,

solltest Du auch kein XL365 im Einsatz haben (wie ich) gäbe es auch eine Formellösung. Dann am einfachsten wohl mit (Formel-)Hilfsspalten.

Allerdings wenn Du zumindest XL2016 (möglich wäre auch XL2010 oder XL2013, nur muß dann noch zusätzlich etwas von der MS-Seite downgeladen und nachinstalliert werden) im Einsatz hast, dann käme auch eine Lösung ganz ohne Formeln auch ohne VBA in Betracht. und zwar mit der Power Query (PQ) Funktionalität

Jedoch solltest Du zunächst noch klären, ob - bei entsprechenden anderen Wortlisten in Tabelle 1 - alle zutreffenden Zielwörter gelistet werden sollen/müssen oder immer nur eins? Wenn ja, welches, das erste? oder das letzte? oder das welches am häufigsten zutrifft?

 

Hallo dww,

entgegen meiner ursprünglichen Ankündigung keine VBA-Lösung zu programmieren, habe ich mich doch dazu hinreißen lassen, da ich feststellte, dass in diesem Fall auch relativ einfach ohne "Reguläre Ausdruck"-Objekte eine Lösung möglich ist.
Ich habe dir 2 VBA-Funktionen in ein allgem. Codemodul eingefügt:

Code:

Private Function VBAFindePosSum(WortListe$, PrüfText) As Long
   Dim wListe() As String, Wort As Variant, sp As String, PrüfT As String
   Dim PosSum As Long
 
   PosSum = 0: PrüfT$ = UCase$(" " & PrüfText & " ")
 
   For Each Wort In Split(UCase$(WortListe$), ", ")
     sp = " " & Wort & " "
     PosSum = PosSum + InStr(PrüfT, sp)
   Next Wort
 
   VBAFindePosSum = PosSum

End Function

Public Function VBAFilterSuchenErsetzen(SucheImText$, rngErsatzWortlisten As Range, Optional Leer As String = "") As String
   Dim rowErsatzWortL As ListRow
   Dim ErsatzListe As String, Ersatz As String, WortListen As String
 
   ErsatzListe = ""
   For Each rowErsatzWortL In rngErsatzWortlisten.ListObject.ListRows
     With rowErsatzWortL.Range
       Ersatz = .Cells(1): WortListen = .Cells(2)
       If VBAFindePosSum(WortListen, SucheImText) Then
          ErsatzListe = ErsatzListe & ", " & Ersatz
       End If
     End With
   Next rowErsatzWortL
   ErsatzListe = Mid$(ErsatzListe, 3)
   VBAFilterSuchenErsetzen = IIf(Len(ErsatzListe), ErsatzListe, Leer)
End Function

Im Arbeitsblatt "Tabelle1" habe ich dir die Formeln in die Zellen B20:B23 eingefügt:
in Zelle B20: =VBAFilterSuchenErsetzen($A20;tbErsatzWortlisten;"--nichts--")
also genauso wie die Excel365-Formellösung, nur mit dem zusätzlichen Namensteil "VBA" am Anfang, um sie von der Excel-Formellösung unterscheiden zu können.

Datei liegt bei.

 

Alternativ:

Code:

Function Schlagwort(r As Range, rr As Range) As String
Dim xp, sq, sv, sp, i As Long, j As Long
xp = Split("~" & Replace(r, " ", "~|~") & "~", "|")
sq = rr
 For i = 1 To UBound(sq)
   sv = Split(sq(i, 2), ", ")
     For j = 0 To UBound(sv)
       sp = Filter(xp, "~" & sv(j) & "~", 0, 1)
         If UBound(xp) > UBound(sp) Then
            Schlagwort = Schlagwort & ", " & sq(i, 1)
            Exit For
          End If
     Next j
 Next i
Schlagwort = IIf(Len(Schlagwort), Mid(Schlagwort, 3), "-Leer-")
End Function

Aufruf mit:

Code:

=Schlagwort(A2;tbErsatzWortlisten)

 

Hallo zusammen.

Ich will mich mal bedanken für Eure Mühen.
Werde wohl doch mehr Zeit investieren müssen als gedacht um das hier geschriebene und vorgeschlagene zu verstehen.

Danke für die Lösungsvorschläge.