Hi,
das mit dem Arbeitskollegen in diesem Forum war wohl hier:
https://www.herber.de/forum/archiv/1296to1300/t1296937.htm
Da habt ihr schon einige Anregungen bekommen, auch in Richtung Formel. Die habt ihr aber wohl nicht umgesetzt.
In C9 steht auch das Ergebnis "Fan-Artikel" - obwohl kein entsprechender Text in A9 oder B9 vorkommt.
Das liegt an der Formel in C9, bei der für "Fan-Artikel" auch USB abgefragt wird,
und es liegt am Text in B9, in dem das Wort "ausbreiten" enthält. ;-)
Hier mein VBA-Vorschlag, den ihr auch für zwei (oder mehr) Spalten aufrufen könnt, z. B. mit
=Kategoriezuordnung(A2&"#"&B2)
Option Explicit ' IMMER zu empfehlen
Public Function Kategoriezuordnung(strB As String) As String
Dim Kette As String
strB = LCase(strB)
If InStr(strB, "oster") + _
InStr(strB, "kücken") + _
InStr(strB, "küken") + _
InStr(strB, "nest") + _
InStr(strB, "picknick") > 0 Then Kette = Kette & ",Ostern"
If InStr(strB, "eco") + _
InStr(strB, "öko") + _
InStr(strB, "solar") + _
InStr(strB, "energiespar") + _
InStr(strB, "umweltfreundlich") + _
InStr(strB, "wiederverwertbar") + _
InStr(strB, "recycling") + _
InStr(strB, "recyeln") + _
InStr(strB, "recycelbar") + _
InStr(strB, "batteriespar") + _
InStr(strB, "wiederauflad") > 0 Then Kette = Kette & ",Eco"
If InStr(strB, "weihnacht") + _
InStr(strB, "schnee") + _
InStr(strB, "kerze") + _
InStr(strB, "engel") + _
InStr(strB, "advent") + _
InStr(strB, "wein") + _
InStr(strB, "fleece") + _
InStr(strB, "filz") + _
InStr(strB, "duft") > 0 Then Kette = Kette & ",Weihnachten"
If InStr(strB, "winter") + _
InStr(strB, "schnee") + _
InStr(strB, "handschuh") + _
InStr(strB, "schlitten") + _
InStr(strB, "ski") + _
InStr(strB, "fellmütze") + _
InStr(strB, "thermoskanne") + _
InStr(strB, "thermobecher") > 0 Then Kette = Kette & ",Winter"
If InStr(strB, "sommer") + _
InStr(strB, "sonne") + _
InStr(strB, "urlaub") + _
InStr(strB, "strand") + _
InStr(strB, "beach") + _
InStr(strB, "kühler") + _
InStr(strB, "kühltasche") + _
InStr(strB, "wasserball") + _
InStr(strB, "bbq") > 0 Then Kette = Kette & ",Sommer"
If InStr(strB, "wellness") + _
InStr(strB, "wohlfühl") + _
InStr(strB, "seife") + _
InStr(strB, "relax") + _
InStr(strB, "erhol") + _
InStr(strB, "sauna") + _
InStr(strB, "massage") + _
InStr(strB, "aloe vera") > 0 Then Kette = Kette & ",Wellness"
If InStr(strB, "usb") > 0 Then Kette = Kette & ",USB"
If InStr(strB, "fussball") + _
InStr(strB, "fußball") + _
InStr(strB, "pfeife") > 0 Then Kette = Kette & ",Fan-Artikel"
If Kette "" Then Kategoriezuordnung = Mid(Kette, 2)
End Function
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
P.S.: Falls mit dem "kücken" das Hühnerbaby gemeint ist: Das schreibt sich "küken". Das erinnert sehr an
das "Häckchen", mit dem meist nicht die kleine Hacke, sondern der kleine Haken gemeint ist...) ;-)