Zellen mit Text auf Gemeinsamkeiten vergleichen
Schritt-für-Schritt-Anleitung
Um zwei Zellen in Excel auf Gemeinsamkeiten zu vergleichen, kannst Du eine benutzerdefinierte Funktion in VBA verwenden. Hier sind die Schritte, um dies zu tun:
-
Drücke Alt + F11, um den VBA-Editor zu öffnen.
-
Markiere auf der linken Seite "VBAProject (DeineMappe)".
-
Klicke auf "Einfügen" und wähle "Modul".
-
In das große weiße Feld, das erscheint, kopiere den folgenden Code:
Function SUWO(Z1 As Range, Z2 As Range) As Boolean
Dim Tx As String, sW As String
Dim p1 As Integer, p2 As Integer
If VBA.Strings.Len(Z1.Text) = 0 Then Exit Function
Tx = Z1.Text & " "
p1 = 1
If VBA.Strings.InStr(Tx, " ") > 0 Then
p2 = VBA.Strings.InStr(Tx, " ")
Else
p2 = VBA.Strings.Len(Tx) + 1
End If
Do While p2 > 0
sW = VBA.Strings.Mid(Tx, p1, p2 - p1)
If VBA.Strings.Len(sW) > 3 And VBA.Strings.InStr(Z2.Text, sW) > 0 Then
SUWO = True
Exit Do
End If
If InStr(p2 + 1, Tx, " ") > 0 Then
p1 = p2 + 1
p2 = InStr(p2 + 1, Tx, " ")
Else
Exit Do
End If
Loop
End Function
-
Schließe den VBA-Editor mit Alt + Q.
-
In eine freie Zelle trage die Funktion wie folgt ein: =SUWO(A1; A2).
-
Wenn Du die Mappe speicherst, steht Dir diese Funktion in dieser Mappe immer zur Verfügung.
Häufige Fehler und Lösungen
-
Problem: Die Funktion gibt immer "FALSCH" zurück, auch wenn es Übereinstimmungen gibt.
- Lösung: Überprüfe, ob die Texte in den Zellen mindestens vier Zeichen lang sind, da dies eine Voraussetzung für die Funktion ist.
-
Problem: Die Zellen sind nicht im richtigen Format.
- Lösung: Stelle sicher, dass die Zellen als Text formatiert sind, um unerwartete Ergebnisse zu vermeiden.
Alternative Methoden
Wenn Du keine VBA-Funktion verwenden möchtest, kannst Du auch die Excel-Funktionen FINDEN oder SUCHEN in Kombination mit WENN nutzen:
=WENN(ISTZAHL(FINDEN("Wetter"; A1)); "Wahr"; "Falsch")
Hierbei wird überprüft, ob das Wort "Wetter" in Zelle A1 vorkommt. Du kannst die Formel anpassen, um die Zellen zu vergleichen.
Praktische Beispiele
-
Beispiel 1: Du hast in Zelle A1 den Text "Das Wetter ist schön" und in Zelle A2 "Es lag wohl am Wetter". Mit der Funktion =SUWO(A1; A2) erhältst Du "Wahr".
-
Beispiel 2: Wenn in A1 "Sonne scheint" und in A2 "Es ist sonnig", kannst Du ebenfalls die Funktion verwenden, um nach Gemeinsamkeiten zu suchen.
Tipps für Profis
-
Nutze die Funktion VBA.Strings.InStr für einen flexiblen Vergleich von Texten in Excel. Diese Funktion ist hilfreich, um die Position eines bestimmten Textes innerhalb einer Zelle zu finden.
-
Überlege, ob Du die Funktion VBA.Strings.Split verwenden möchtest, um Texte in Arrays zu zerlegen und so komplexere Vergleiche durchführen zu können.
FAQ: Häufige Fragen
1. Frage: Kann ich diese Funktionen auch in Excel für Mac verwenden?
Antwort: Ja, die VBA-Funktionalität ist auch in Excel für Mac verfügbar, allerdings kann die Bedienung leicht abweichen.
2. Frage: Was passiert, wenn die Zellen leer sind?
Antwort: Die Funktion gibt "FALSCH" zurück, wenn eine der Zellen leer ist, da keine Übereinstimmungen gefunden werden können.
3. Frage: Ist es möglich, mehr als zwei Zellen zu vergleichen?
Antwort: Ja, Du kannst die Funktion erweitern oder eine Schleife implementieren, um mehrere Zellen zu berücksichtigen.