Hi,

bin auf ein weiteres Problem gestoßen die Abfrage mit dem Array funktioniert soweit, jedoch kommen Schlagworte in den Excel-Zellen in Verbindung mit Satzzeichen vor Beispielsweise am Satzende oder oder Komma.

Hier der Code wie ich mir das gedacht hab, frage sozusagen zweimal ab ob die Länge des Strings übereinstimmt nur einmal eben noch +1 um ein Satzzeichen mit zu berücksichtigen.

Leider funktioniert es nicht wirklich :-( 

Hier der Stück Code:

...

Set rngFind = .Find(strSuchbegriff, , , xlPart)
                  
                          If Not rngFind Is Nothing Then
                        
                              strErsteZelle = rngFind.Address
                                    
                                  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)
                                        
                                                'Abfrage ob Schlagwort mit Wort in Zelle oder Schlagwort +1 zusätzliches Zeichen mit Text in Zelle übereinstimmt
                                                'Damit werden auch Schlagwörter + ein Komma oder Punkt gefunden
                                        
                                            If Len(sArr(y)) = Len(Trim(strSuchbegriff)) Or Len(sArr(y)) = Len(Trim(strSuchbegriff)) + 1 Then
                                            
                                                    rngFind.Interior.ColorIndex = 36
                                                
                                            End If
                                        
                                        Next y
                                        
                                        Set rngFind = .FindNext(rngFind)
                                      
                                  Loop Until rngFind Is Nothing Or rngFind.Address = strErsteZelle
                           
                              strSuchbegriffFound = strSuchbegriffFound & Chr(10) & "- " & strSuchbegriff
                          Else
                              strSuchbegriffNotFound = strSuchbegriffNotFound & Chr(10) & "- " & strSuchbegriff
                          End If

...

Besten Dank für jegliche Hilfe und viele Grüße

Tobi