Excel Makro mehrere Zellen/Bereiche in Code

[boott]

Guten Tag

Ich habe folgenden Code innerhalb eines Makros:

    Set rngFind = Rows(i).Find(strTitel, _
    LookIn:=xlFormulas)

Nun soll

Rows(i)

ersetzt werden durch die folgenden Zellen: Cell(i,3), Cell(i,14), Cell(i,16) und noch einige weitere.

Wie mach ich das am Besten?
Nach Cell(i,14) könnten notfalls alle weiteren (alle in derselben Zeile) Zellen zu einem Bereich zusammengenommen werden. Dann wären es sozusagen zwei Bereiche. Aber besser wäre, die einzelnen Zellen anzugeben.

Danke
boott

 

[boott]

Hat sich erledigt:

Set rngFind = Union(Cells(i, 3), Cells(i, 14), Cells(i, 16), Cells(i, 18), Cells(i, 20)).Find(strTitel, LookIn:=xlFormulas)

bzw.

Set rngFind = Range("e" & i, "l" & i).Find(strTitel, LookIn:=xlFormulas)