Hi,
habe ich mich vllt. falsch ausgedrückt keiner meiner beiden Varianten liefert das gewünschte Ergebnis, d.h es werden Wörter die durch ein Bindestrich verbunden sind (z.B. Digi-talsierung) weiterhin nicht gefunden :-(
Hier die erste Variante (Replace vor dem Array):
Do
Test = Replace(rngFind.Text, "-", "")
sArr() = Split(Test, Chr(32))
'Text pro Zelle in ein Array laden und Wort für Wort überprüfen ob Schlagwort mit gefundenem Text übereinstimmt (Vgl. über Länge des Strings)
For y = LBound(sArr) To UBound(sArr)
'Abfrage ob Suchbegriff oder Suchbegriff inkl. ein Satzzeichen vorkommt
If sArr(y) = Trim(strSuchbegriff) Or sArr(y) = Trim(strSuchbegriff & ",") Or _
sArr(y) = Trim(strSuchbegriff & ".") Or sArr(y) = Trim(strSuchbegriff & "-") Or _
sArr(y) = Trim(strSuchbegriff & "/") Or sArr(y) = Trim(strSuchbegriff & ":") Or _
sArr(y) = Trim(strSuchbegriff & "+") Or sArr(y) = Trim(strSuchbegriff & ";") Then
rngFind.Interior.ColorIndex = 36
End If
Next y
Set rngFind = .FindNext(rngFind)
Loop Until rngFind Is Nothing Or rngFind.Address = strErsteZelle
Hier die zweite Variante (Replace im Array):
Do
sArr() = Split(rngFind.Text, Chr(32))
'Text pro Zelle in ein Array laden und Wort für Wort überprüfen ob Schlagwort mit gefundenem Text übereinstimmt (Vgl. über Länge des Strings)
For y = LBound(sArr) To UBound(sArr)
Test = Replace(sArr(y), "-", "")
'Abfrage ob Suchbegriff oder Suchbegriff inkl. ein Satzzeichen vorkommt
If Test = Trim(strSuchbegriff) Or Test = Trim(strSuchbegriff & ",") Or _
Test = Trim(strSuchbegriff & ".") Or Test = Trim(strSuchbegriff & "-") Or _
Test = Trim(strSuchbegriff & "/") Or Test = Trim(strSuchbegriff & ":") Or _
Test = Trim(strSuchbegriff & "+") Or Test = Trim(strSuchbegriff & ";") Then
rngFind.Interior.ColorIndex = 36
End If
Next y
Set rngFind = .FindNext(rngFind)
Loop Until rngFind Is Nothing Or rngFind.Address = strErsteZelle
EIne Idee an was dies liegen könnte ?
VG
|