Hallo zusammen,

gibt es eine Möglichkeit die Zelle mit dem gesuchten Wert auszuwählen? (Ich arbeite mit Excel 365)

Ich suche z.B. im Bereich B8:M3000 und dann möchte ich, dass ich die Zelle B500 oder M800 ausgewählt bekomme.

Derzeit bekomme ich es nur hin, dass immer die erste Zelle in der richtigen Zeile ausgewählt wird:

Cells(lngFind, 1).Select

Ich weiß, dass ich die "1" ändern kann, jedoch ist das Problem dass der Wert den ich suche nur in Spalte B und M ist und wenn ich den Bereich auf B:B, M:M ändere bekomme ich nur eine Fehlermeldung.

Vielleicht hat jemand eine Lösung.

Sub Finden()
Dim strSUCH As Variant
Dim rngSUCH As Range
Dim lngFind As Long

strSUCH = Application.InputBox("Material:")
Set rngSUCH = ActiveSheet.Range("B8:M3000").Find(What:=strSUCH, _
Lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngSUCH Is Nothing Then
   lngFind = rngSUCH.Row
   Cells(lngFind, 1).Select
   
Else
   MsgBox "Der gesuchte Wert " & strSUCH & " wurde nicht gefunden.", _
   64, "Nicht gefunden."
End If
Set rngSUCH = Nothing
End Sub

Grüße