|
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
|