.FindNext schlägt nach einer .Find-Funktion fehl (excel vba)

Ich versuche es zu benutzen.Find und.FindNext um eine einzelne Datenspalte zu durchsuchen. Ich muss zuerst die erste Zelle finden, die den Wert "Total" enthält. Die Zelle, zu der ich zu gelangen versuche, ist die dritte Zelle NACH der Zelle "Total", die den Wert "Tech" enthält. Es ist mit Sicherheit bekannt, dass die Zellen (1, 1) weder "Tech" noch "Total" enthalten.

Dim FirstTotal As Range
Dim SearchRng As Range
Dim ResultRng As Range
Set SearchRng = Range("A:A")

Set FirstTotal = SearchRng.Find(What:="Total", After:=Cells(1, 1), SearchDirection:=xlNext)
Set ResultRng = SearchRng.Find(What:="Tech", After:=FirstTotal, SearchDirection:=xlNext)
SearchRng.FindNext().Activate
SearchRng.FindNext().Activate

In etwa 50% der Fälle, in denen ich diesen Code ausgeführt habe, wurde ich durch einen Typenkonfliktfehler in der Zeile gestoppt, der mit beginntSet ResultRng =. In der restlichen Zeit ist der Code vollständig durchlaufen, aber die Ergebnisse sehen so aus, als würden die letzten beiden Codezeilen vollständig ignoriert.

Ich vermute, dass die Antwort hier ziemlich einfach ist, aber ich bin ziemlich neu darin, vba zu übertreffen, und keine Ressourcen, die ich bisher gefunden habe, haben darauf geantwortet. Bitte helfen Sie!

Antworten auf die Frage(2)

Ihre Antwort auf die Frage