Excel VBA: finde die Zeile einer Zelle mit einem bestimmten Wert und setze die Zeilennummer in eine andere Zelle

Question

Ich versuche, die Zeile einer Zelle mit einem bestimmten Wert (der gleiche Wert wie range("C1").value) zu finden und diese Zeile zu setzen Nummer in einer anderen Zelle. Ich bleibe zwei Stunden dran.

Mein Code wie folgt:

Set found = sheet1.Columns("B").Find(what:= sheet1.range("C1").Value, LookIn:=xlValues, lookat:=xlWhole)  
sheet1.range("A2").value= found.Address 

Object variable not set

Was ist die Quelle dieses Fehlers Dieser Code bekam Fehlermeldung (I sheet1 vor aktiviert)?

Answer 1

B'cos die gefundene Variable ist leer, da Find() keine übereinstimmenden Werte findet und nichts in der gefundenen Variable setzt.

Dim found As Range 

Set found = Sheet1.Columns("B").Find(what:=Sheet1.Range("C1").Value, LookIn:=xlValues, lookat:=xlWhole) 

If Not found Is Nothing Then 
    Sheet1.Range("A2").Value = found.Address 
End If