ganze Wörter in string suchen und löschen
Beffen
Ich habe eine kleine Frage:
Ich möchte aus einem String (Variable "satz") Wörter herausfiltern, die in der ersten Spalte von Zeile 1 bis 200 stehen. Darin sind besonders häufig verwendete Wörter der deutschen Sprache aufgeführt.
Ziel ist es am Ende ein Schlagwort aus dem String "satz" herauszubekommen.
Mein bisheriger Code funktioniert nicht ganz. Ich sage unten auch warum - aber wahrscheinlich wisst ihr das eh schon :-)
Private Sub CommandButton1_Click()
z = 1
Dim satz As String
satz = tb_text
Set blatt = ThisWorkbook.Sheets(1)
For i = 1 To 200
suchtext = Cells(i, 1)
If InStr(satz, suchtext) > 0 Then
z = z + 1
satz = Replace(satz, suchtext, "")
End If
Next
lbl_schlagwort.Caption = satz
End Sub
Wenn ich als "satz" den String "Ich habe Hunger" eingebe, erscheint als Schlagwort "Ich Hung".
In der Liste mit den meist verwendeten Wörtern ist natürlich auch "er" enthalten!
Ich bräuchte folglich eine Lösung, die nur nach ganzen Wörtern im String "satz" sucht und nicht Bestandteile davon heraussucht! Ausserdem wir scheinbar zwischen groß und Kleinschreibung unterschieden ("ich" ist natürlich in der Liste - aber nicht "Ich")
Ausserdem müssen Sonderzeichen und Kommas gelöscht werden, wenn beim Beispiel "Ich habe Hunger" das Wort "habe" gelöscht wird. Andernfalls stehen am ende sehr viele Leerzeichen sinnlos in der Kante....
Habt ihr einen Vorschlag für das Hauptproblem mit dem Ersetzen ganzer Wörter?
Gruß Beffen