Excel VBA Find Funktion bekommen Laufzeit Fehler 1004

Question

Jedes Mal, wenn ich versuche, diesen Code ausführen, bekomme ich diesen Fehler: 'Runtime Fehler 1004: Anwendung definiert oder Objekt definierten Fehler' Es ist speziell nicht die "Find" -Funktion, mit heraus, es läuft gut.

sieht mein Code wie folgt:

Public Sub main() 
    Dim maxVal As Long 
    Dim origValue As Long 
    Dim CaseNumber As Long 
    Dim FoundCell As Range 

maxVal = Range("A1").End(xlDown).Row 
For origValue = 2 To maxVal 
    CaseNumber = Sheets("Complications").Cells(origValue, 1).Value 
    FoundCell = Sheets("Complications").Cells.Range(a1, a50000).Find(What:=CaseNumber) 
    If FoundCell Is Nothing Then 
     Sheets("Complications").Cells(origValue, 1).Value = Sheets("Cases").Cells(origValue, 1).Value 
    Else 
    End If 

    Next 
End Sub 

Jede Hilfe wäre sehr willkommen!

Answer 1

Set FoundCell = Sheets("Complications").Cells.Range("A1:A50000").Find(What:=CaseNumber)

Sie gaben nur die falsch Bereich.

Answer 2

ist Bruce Wayne die Antwort auf Ihre Frage, die folgenden können Ihnen helfen, mögliche künftige Probleme zu vermeiden:

Public Sub main() 
    Dim maxVal As Long 
    Dim origValue As Long 
    Dim FoundCell As Range 

    With Worksheets("Complications") '<--| reference this sheet once and for all and rest assure you're dealing with it if not otherwise explicitly referenced 
     maxVal = .Range(.Rows.Count, 1).End(xlUp).Row '<--| find the "real" last non blank cell in column A, should any blank cell precede before it 
     For origValue = 2 To maxVal 
      Set FoundCell = .Range("A1", "A50000").Find(What:=.Cells(origValue, 1).Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False) '<--| always specify those 4 Find() method parameters 
      If FoundCell Is Nothing Then 
       .Cells(origValue, 1).Value = Sheets("Cases").Cells(origValue, 1).Value 
      Else 
      End If 
     Next 
    End With 
End Sub 

Kommentar auf Find() Methode beruht auf der Tatsache, dass jede Nutzung der es (auch aus Excel UI) setzt diese Parameter als Standard für die spätere Verwendung. Es ist also besser, immer genau anzugeben, was Sie wirklich brauchen.

schließlich sollte es keine Else Klausel den Code zu behandeln, dann könnte Zusammenbruch zu

Public Sub main2() 
    Dim maxVal As Long 
    Dim origValue As Long 

    With Worksheets("Complications") '<--| reference this sheet once and for all and rest assure you're dealing with it if not otherwise explicitly referenced 
     maxVal = .Range(.Rows.Count, 1).End(xlUp).Row '<--| find the "real" last non blank cell in column A, should any blank cell precede it 
     For origValue = 2 To maxVal 
      If .Range("A1", "A50000").Find(What:=.Cells(origValue, 1).Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False) Is Nothing Then .Offset(origValue - 1).Value = Sheets("Cases").Cells(origValue, 1).Value '<--| always specify those 4 parameters of Find() method 
     Next 
    End With 
End Sub