Multisuche
VolkerM
Ich möchte eine Tabelle nach mehreren Suchbegriffen durchsuchen lassen.
Die Suchbegriffe sollen sich aus der aktiven Zeile und den Spalten B bis zur letzten befüllten Zelle der aktiven Zeile zusammensetzen.
Die Tabelle sieht so aus, dass die Anzahl der befüllten Zellen einer Zeile unterschiedlich ist.
Leerzellen innerhalb einer Zeile gibt es jedoch nicht.
Wie kann man variabel den Bereich der Suchbegriffe bestimmen ?
Sub Markieren()
Cells.Interior.ColorIndex = xlNone
Dim rngFind As Range
Dim strFirst As String
Dim strFindArray() As Variant
Dim intCount As Integer
strFindArray = Array(ActiveCell.Value, ActiveCell.Offset(0, 1).Value, ActiveCell.Offset(0, 2). _
Value) ' ?
For intCount = 0 To UBound(strFindArray)
Set rngFind = Cells.Find(What:=strFindArray(intCount), LookIn:=xlValues, LookAt:=xlWhole)
If Not rngFind Is Nothing And ActiveCell.Value "" Then
strFirst = rngFind.Address
Do
rngFind.Interior.ColorIndex = 6
Set rngFind = Cells.FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address strFirst
End If
Set rngFind = Nothing
strFirst = vbNullString
Next
End Sub
Danke im Voraus
Gruß Volker