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

Bereich.FindNext scheint letztlich gebrochen. Es hat nie für mich gearbeitet, sogar mit dem gleichen code wie Microsoft ' s-Beispiel.

InformationsquelleAutor Evan Patrick McCann | 2012-06-11

  1. 1

    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:

    Set FirstTotal = SearchRng.Find(What:="Total", After:=Cells(1, 1), SearchDirection:=xlNext)
If Not FirstTotal is Nothing Then
   Set ResultRng = SearchRng.Find(What:="Tech", After:=FirstTotal, SearchDirection:=xlNext)
End If

    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.

    Nach einigen debug-Meldungen, die ich warf, FirstTotal ist korrekt eingestellt und über 50% der Zeit, und den rest der Zeit leer ist. Es gibt keine anderen .Finden oder .FindNext ruft, bevor diese in den code. Können Sie aus irgendeinem Grund denken, dies könnte passiert sein?
    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

  2. 1

    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:

    Sub Sample()
    Dim oRange As Range, aCell As Range, bCell As Range
    Dim ws As Worksheet
    Dim ExitLoop As Boolean
    Dim SearchString As String, FoundAt As String
    On Error GoTo Err
    Set ws = Worksheets("Sheet3")
    Set oRange = ws.Columns(1)

    SearchString = "2"
    Set aCell = oRange.Find(What:=SearchString, LookIn:=xlValues, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
    If Not aCell Is Nothing Then
        Set bCell = aCell
        FoundAt = aCell.Address
        Do While ExitLoop = False
            Set aCell = oRange.FindNext(After:=aCell)

            If Not aCell Is Nothing Then
                If aCell.Address = bCell.Address Then Exit Do
                FoundAt = FoundAt & ", " & aCell.Address
            Else
                ExitLoop = True
            End If
        Loop
    Else
        MsgBox SearchString & " not Found"
    End If
    MsgBox "The Search String has been found at these locations: " & FoundAt
    Exit Sub
Err:
    MsgBox Err.Description
End Sub

    InformationsquelleAutor Siddharth Rout

Schreibe einen Kommentar