.FindNext Versagen nach .Find-Funktion (excel-vba)
Ich versuche, mit .Find
und .FindNext
Suche durch eine einzelne Spalte von Daten. Ich muss zuerst zu finden, die erste Zelle mit dem Wert "Total". Die Zelle, die ich versuche, zu bekommen ist die Dritte Zelle NACH dem "Total" Zelle enthält den Wert "Tech". Es ist bekannt, dass die Zellen(1, 1) nicht enthalten ist "Tech" oder "Total".
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
Etwa 50% der Zeit habe ich diesen code ausführen, ich habe aufgehört von einem Typenkonflikt-Fehler auf der Zeile beginnend mit Set ResultRng =
. Den rest der Zeit, den code hat laufen den ganzen Weg durch, aber die Ergebnisse Aussehen, als ob die letzten beiden Zeilen des Codes wurden komplett ignoriert.
Ich vermute, dass die Antwort hier ist ziemlich elementar, aber ich bin Recht neu in excel-vba und auch keine Ressourcen, die ich bisher gefunden habe, antwortete dieser. Bitte um Hilfe!!
InformationsquelleAutor Evan Patrick McCann | 2012-06-11
Du musst angemeldet sein, um einen Kommentar abzugeben.
Wenn "Total" nicht gefunden wird, dann FirstTotal wird Nichts sein, was zu einem "Type Mismatch", wenn Sie versuchen, FirstTotal für die "Nach" - argument in der ResultRange Finden (die 2. Zeile). Dadurch wird verhindert, dass Fehler:
Generell alle abhängigen Findet, müssen auf diese Weise behandelt werden.
Klar, irgendeine Art von Else-Anweisung ist hier erforderlich, aber ich weiß nicht, was das wäre.
Wir wissen, dass das bedeutet "Insgesamt" nicht gefunden. Dies bedeutet, dass SearchRange nicht enthalten "Total." Ich würde schauen, um zu sehen, welche die Adresse der SearchRange ist, wenn "Total" nicht gefunden.
InformationsquelleAutor Doug Glancy
Würde dies helfen?
Thema: .Finden und .FindNext In Excel-VBA
Link: http://www.siddharthrout.com/2011/07/14/find-and-findnext-in-excel-vba/
Auszug Aus dem link:
InformationsquelleAutor Siddharth Rout