Excel: Schlagworte mit Verweistabelle abgleichen

Hallo MrAisoku,
<br />habe es gerade ausprobieren können - hat super geklappt!
<br />Herzlichen Dank und schönen Abend!
<br />Viele Grüße
<br />A
<br />

Hallo,
<br />das Schlagwort im Buchungstext zu suchen, wäre einfacher.
<br />Probiere es mit einer Funktion. Füge folgenden Code in ein Standardmodul ein und rufe die Funktion im Blatt auf mit:
<br />=Kuerzel(C5;$C$13:$D$19)
<br />

Function Kuerzel(Bereich As Range, SBereich As Range) As String

Dim varSuche As Variant

Dim i As Integer

varSuche = SBereich

For i = LBound(varSuche) To UBound(varSuche)

If InStr(Bereich, varSuche(i, 1)) > 0 Then

Kuerzel = Application.Index(SBereich, i, 2)

Exit For

End If

Next

End Function

Claus
<br />

Hallo Claus,
<br />habe Deine Lösung gerade testen können. Diese hat super funktioniert!
<br />Herzlichen Dank für Deine tolle Unterstützung!
<br />Viele Grüße
<br />A
<br />

Hallo,
<br />mit Hilfsspalten geht es einigermaßen einfach:
<br />


<br />In den Hilfsspalten:
=WENN(LÄNGE($A2)<>LÄNGE(WECHSELN($A2;C$1;""));SVERWEIS(C$1;Verweistabelle;2;0);"")
<br />Verweistabelle ist deine Tabelle mit den Schlagworten. Hab ihr nur einen Namen verpasst.
<br />Beim Kürzel dann noch dieses:
<br />=BEREICH.VERSCHIEBEN($A2;0;VERWEIS(2;1/($C2:$I2<>"");SPALTE(1:20))+1)
<br />Die Hilfsspalten ausblenden und dann passt es.
<br />Vielleicht hilfts ja
<br />

Hallo,
<br />sorry - leider ist mir ein Fehler unterlaufen. Es soll natürlich nicht die Zelle C4 sondern die Zelle C5 durchsucht werden.
<br />Viele Grüße
<br />A
<br />