|
Hi Folks,
ich möchte Keywords, welche sich in Tabelle2 in Spalte A befinden in einzelnen Zeilen in Tabelle1 suchen. Bei einem Treffer soll das jeweilige Keyword in einer Zelle in der Zeile angezeigt werden oder einfach die Zeile irgendwie markiert werden, in der sich ein Keyword befindet.
Man muss dazu sagen, dass die Zellen der Zeilen, in denen gesucht werden soll, nicht exakt nur das Keyword beinhalten, dondern dass sichd as Keyword irgendwo im Text der einzelnen Zellen befindet.
Dazu habe ich erstmal folgenden Code geschrieben.
Sub Keywordsfinden()
Dim Zeile As Long
Dim ZeileMax As Long
Dim Treffer As Range
Dim KeywordZeile As Long
Dim KeywordZeileMax As Long
With Tabelle1
ZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
KeywordZeileMax = Tabelle2.Range("A" & .Rows.Count).End(xlUp).Row
For Zeile = 2 To ZeileMax
For KeywordZeile = 2 To KeywordZeileMax
'Wo wird gesucht nach was? wie? nur eindeutige Nummern
Set Treffer = .Range(Cells(Zeile, "A"), Cells(Zeile, "BS")).Find(what:=Tabelle2.Cells(KeywordZeile, "A").Value, lookat:=xlWhole)
If Treffer Is Nothing Then
Next KeywordZeile
Else
.Cells(Zeile, "BS").Interior.ColorIndex = 4
Next Zeile
End If
Next Zeile
End With
End Sub
Aus irgendeinem Grund zeigt er mir an, dass es ein "Next ohne For" Problem gibt.
Kann mir hierbei jemand helfen? Bin wirklich ratlos und habe ewig rumprobiert :/.
Viele Grüße
Tobi
|