Mit VBA einen Bereich anhand einer Liste durchsuchen
26.01.2024 19:17:01
Timo
ich stehe vor einem Problem und komme einfach nicht weiter.
In einer Excel-Datei habe ich 2 Tabellenblätter.
Im Tabellenblatt 1 ist eine Liste mit Begriffen, die in einer Spalte untereinander stehen.
Im Tabellenblatt 2 stehen ebenfalls in einer Spalte Begriffe untereinander.
Nun möchte ich gerne mit VBA im Tabellenblatt 2 alle Begriffe markieren, die im Tabellenblatt 1 in der Liste vorkommen.
Ich habe bereits einen VBA-Code gefunden und angepasst.
Leider werden die Begriffe, die mehrmals vorkommen, nur 1x markiert. Es sollen aber alle Begriffe markiert werden, auch wenn diese mehrmals vorkommen.
Ich hoffe, ihr könnt mir helfen.
Danke und viele Grüße
Timo
Hier der entsprechende Code:
Sub Werte_faerben()
Dim i As Long
Dim rFoundCell As Range
With ThisWorkbook.Worksheets("Zwischenspeicher")
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
Set rFoundCell = ThisWorkbook.ActiveSheet.Columns(10).Find(what:=.Cells(i, 1).Value, After:=ThisWorkbook.ActiveSheet.Columns(10).Cells(1), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rFoundCell Is Nothing Then
rFoundCell.Interior.Color = RGB(189, 215, 238)
End If
Next i
End With
Set rFoundCell = Nothing
End Sub