.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!