VBA finden-Funktion mit Laufzeitfehler 91
Meine Frage ist bezüglich der Laufzeitfehler 91 VBA für excel. Ich habe getan, einige suchen ohne Erfolg. Mein code ist unten. Ich haben bemerkt Abschnitt, der den Fehler verursacht. Warum ist das passiert und wie kann ich es beheben und weitermachen?
Sub RemoveFooterRows(theFile)
Dim found As Range
Dim aggregateRow
''Error is from section below
found = isItRow = Workbooks(theFile).Worksheets(1).Columns(1).Find _
("Summary", Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, , False)
''Error is from section above
MsgBox ("val is " & found.Row)
End Sub
Du musst angemeldet sein, um einen Kommentar abzugeben.
Müssen Sie die "Set" - Schlüsselwort, um den Wert zuzuweisen.
Sich auch nicht sicher, was Sie wollen " =isItRow =" zu tun, aber Sie sollten es tun, in zwei Aussagen, anstatt zu versuchen, Sie stapeln sich wie, die.
Auch aggregateRow nicht verwendet wird und nicht einem Typ zugeordnet.
If Not found Is nothing Then...
im Fall der Wert wurde nicht gefunden.Verwenden Sie SET, um zu finden einer Zelle und legen Sie es in ein Objekt. Aber Sie können lassen Sie aus, wenn Sie nur was die Reihe. Dies ist, wie ich schreiben würde, dass testen so weit:
On Error Resume Next
ist es denn wenn.Find
nicht alles finden, dann.Row
wird ein Fehler generiert.Find
können Fehler aus anderen Gründen, die eine unfound match, ie starten der Suche in einer ungültigen Position, Suche in einen ungültigen Bereich usw. Besser zu lokalisieren diese Probleme als diese übersprungen