Werte suchen

Ich möchte in einer Liste mit Maschineninventarnummern den zugehörigen Wert aus der Spalte nebendran auslesen, bzw. eine Variable damit belegen.

Gibt es vielleicht eine bessere Methode als diese:

    On Error Resume Next            ' 1. Wert
    
    Cells.Find(What:="2042M01", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False).Activate
    
    Gesuchter_Wert1 = ActiveCell.Offset(0, 2)
    
    
    
                                    ' 2. Wert
    
    Cells.Find(What:="2051M01", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
                
    Gesuchter_Wert2 = ActiveCell.Offset(0, 2)