Formel "finden" mehere Suchbegriffe splitten.

Formel "finden" mehere Suchbegriffe splitten.

Formel "finden" mehere Suchbegriffe splitten.

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Hallo Excelexperten,
ich habe eine Formel die ich ändern müsste.
Weiß aber nicht wie und ob es überhaupt geht.
Ich denke vielleicht mit einer Array Formel aber ... ?


=WENN(UND($S7"";X$3"");WENN(ISTFEHLER(FINDEN(X$3;$S7;1)>0);"";"x");"")

Mit dieser Formel suche in ich einer Zelle S7 ob der Wert aus zelle X3 vorhanden ist.
Aktuell können in zelle S7 ein längerer String sein Hauptsache der wert der in zelle X3 steht ist darin vorhanden.
Das soll auch etwa so bleiben.
Mit dem unterschied ich möchte in Zelle X3 mehrere Werte eingeben die gesucht werden sollen in Zelle S7.
Also aktuell wird dieser Wert gefunden
in X3 steht "test"
Zelle S7 = "dfk|0gk|js|testdf|klgnkj"
Würde in Zelle X3 aber stehen "chris,test,alf"
Würde der Wert test nicht gefunden werden da ja die ganze zeichenfolge aus Zelle X3 gesucht wird.
Kann man die suche irgendwie Splitten nach Komma ?
Ich hoffe ihr habt verstanden was ich meine?Würde mich sehr über Hilfe freuen.
Vielen Dank Gruß Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
eine VBA Funktion könnte so funktionieren.
In ein Standard Modul diese Funktion.

Option Explicit

Function FindString(rngVerketten As Range, rngSucheIn As Range, sDel$) As String
Dim sDoppel$, tmpRng As Range
Static Regex As Object, strAdress$, sDeli$, sPattern$

If sPattern = "" Or sDeli <> sDel Or strAdress <> rngVerketten.Address Or Regex Is Nothing Then
    
    sDeli = sDel
    strAdress = rngVerketten.Address
    With Application
        For Each tmpRng In rngVerketten.Rows
            sPattern = sPattern & Join(.Transpose(.Transpose(rngVerketten)), sDel) & sDel
        Next tmpRng
    End With
    sDoppel = sDel & sDel
    sPattern = Replace(sPattern, sDoppel, sDel)
    
    Do While InStr(sPattern, sDoppel) > 0
      sPattern = Replace(sPattern, sDoppel, sDel)
    Loop


    If Left$(sPattern, 1) = sDel Then _
        sPattern = Right$(sPattern, Len(sPattern) - 1)
        
    If Right$(sPattern, 1) = sDel Then _
        sPattern = Left$(sPattern, Len(sPattern) - 1)
        
    sPattern = Replace(sPattern, sDel, "|")

    Set Regex = CreateObject("Vbscript.Regexp")

    With Regex
        .IgnoreCase = True
        .MultiLine = True
        .Pattern = sPattern
        .Global = True
    End With
End If

If Regex.test(rngSucheIn.Value) Then
    FindString = "X"
End If


End Function

In Excel kannst Du dies wie eine Formel verwenden.

	S	T
7	dfk\|0gk\|js\|test1df\|klgnkjchri	X
8	dfk\|0gk\|js\|test1df\|klgnkjchri	X
9	dfk\|0gk\|js\|test2df\|klgnkjchri	X
10	dfk\|0gk\|js\|tesdf\|klgnkjchri
11	dfk\|0gk\|js\|tesdf\|klgnkjchri

Formeln der Tabelle

Zelle	Formel
T7	=FindString($X$3:$AH$3;S7;",")
T8	=FindString($X$3:$AH$3;S8;",")
T9	=FindString($X$3:$AH$3;S9;",")
T10	=FindString($X$3:$AH$3;S10;",")
T11	=FindString($X$3:$AH$3;S11;",")

=FindString(Zellen mit den Suchwerten;Zelle wo gesucht werden soll;Trennzeichen das verwendet wird)

Gruß Tino

Beliebteste Forumthreads (12 Monate)

	S	T
7	dfk\|0gk\|js\|test1df\|klgnkjchri	X
8	dfk\|0gk\|js\|test1df\|klgnkjchri	X
9	dfk\|0gk\|js\|test2df\|klgnkjchri	X
10	dfk\|0gk\|js\|tesdf\|klgnkjchri
11	dfk\|0gk\|js\|tesdf\|klgnkjchri

chris,test,alf

dfk|0gk|js|testdf|klgnkj