Excel Schnittmenge zweier Zellen mit Text berechnen

Question

WIe kann ich in Excel die Schnittmenge zweier Zellen berechnen, deren Inhalt aus möglicherweise blank-getrennten Texten besteht?

Answer 1

zu 1) Astner_2020 ist kein "Kollege" sondern ein normaler User. Ich hingegen bin Moderator, was auch unter meinem Namen steht.

"Who's who" in der Community

Außerdem fand die Verschiebung später als die Antwort statt. Nicht aufregen, einfach nächstes Mal vor dem Posten kucken ob man das richtige Forum gewählt hat. Steht auch in dem FAQ-Artikel:
https://answers.microsoft.com/de-de/page/faq#faqAskQuestion1

Nicht so schlimm, einfach vergessen.

zu 2)

Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"
Klick im Menü auf Einfügen \ Modul
Füge den folgenden Code ein
Schließe den VBA-Editor
Diese Formel in A3: =Textlntersect(A1;A2)

Alles klar?

Andreas.

Function Textlntersect(ByVal S1 As String, ByVal S2 As String, _
Optional ByVal Delimiters As String = "°^!""2§3$%&/{([)]=1?@*+-1#><1;,:._-", _
Optional ByVal Compare As VbCompareMethod = vbTextCompare) As String
Dim Digit As String
Dim i As Long, j As Long
Dim A1, A2, Result
If Delimiters = "" Then Delimiters = " "

' Loop to remove delimiters from S1 and S2
For i = 1 To Len(Delimiters)
DoEvents
Digit = Mid$(Delimiters, i, 1)
If InStr(1, S1, Digit, Compare) > 0 Then S1 = Replace$(S1, Digit, " ", Compare:=vbTextCompare)
If InStr(1, S2, Digit, Compare) > 0 Then S2 = Replace$(S2, Digit, " ", Compare:=vbTextCompare)
Next

' Remove extra spaces
S1 = Trim$(S1)
S2 = Trim$(S2)
Do While InStr(S1, " ") > 0
S1 = Replace$(S1, " ", " ")
DoEvents
Loop
Do While InStr(S2, " ") > 0
S2 = Replace$(S2, " ", " ")
DoEvents
Loop

' Split into arrays
A1 = Split(S1, " ")
A2 = Split(S2, " ")

' Find matches and add to result array
Result = Array()
For i = 0 To UBound(A1)
For j = 0 To UBound(A2)
DoEvents
If StrComp(A1(i), A2(j), Compare) = 0 Then
ReDim Preserve Result(0 To UBound(Result) + 1)
Result(UBound(Result)) = A1(i)
Exit For
End If
Next
Next

' Return result as a string
Textlntersect = Join(Result, " ")
End Function

Answer 2

Hallo Andreas,

vielen Dank für die zweigeteilte Antwort.

zu 1: warum fordert er mich auf, etwas zu tun, was er oder einer seiner Kollegen längst getan hat??? Das bringt einen Laien ganz schön durcheinander!

zu 2: die Frage verstehe ich überhaupt nicht. Vielleicht hilft die folgende Ergänzung: Ich möchte die Schnittmenge berechnen von Menge1=a b c d e und Menge 2=d a . Das Ergebnis wäre ja wohl Schnittmenge=a d. Oder?

Für zielführende Hilfe bin ich als Dummy unendlich dankbar.

Ebro.

Answer 3

HALLO,

und wie stelle ich meine Frage dort ein? Wäre diese Option im Popup-Fenster aufgetaucht, hätte ich sie sicher ausgewählt.

Also bitte, was muss ich tun?

Ebro.

Hat schon ein Moderator verschoben, alles gut.

Was soll denn die Schnittmenge von

"WIe kann ich in Excel die Schnittmenge zweier Zellen berechnen"

und

"deren Inhalt aus möglicherweise blank-getrennten Texten besteht?"

sein?

Andreas.

Answer 4

HALLO,

und wie stelle ich meine Frage dort ein? Wäre diese Option im Popup-Fenster aufgetaucht, hätte ich sie sicher ausgewählt.

Also bitte, was muss ich tun?

Ebro.

Answer 5

mit leistung und systemfehler im windows 11 hat deine frage wenig zu tun.

bitte stelle diese im excel-unterforum: https://answers.microsoft.com/de-de/msoffice/forum/msoffice_excel