Office: Wert aus Inputbox suchen und anspringen

Hallo zusammen
ich möchte gerne in meiner Excel-Liste über eine Inputbox einen Wert eingeben, z.B. 15. diesen Wert in der Spalte B2:B65000 suchen, wenn er gefunden wird soll mein Cursor auf die gefundene Zelle springen.

Sub inputboxaufrufen()
Dim strWert As Integer
Dim Zeile As Integer
Dim Bereich As Range

strWert = InputBox("Geben Sie den zu suchenden Wert ein", "Sucheingabe")
Zeile = Application.WorksheetFunction.Match(strWert, Range("B2:B65000"),

Bereich.EntiereRow.Select

End Sub


Mein Code funktioniert leider nicht

Weiss jemand Rat?

Danke Pluto1

:)

 

Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de

 

Hi,

Code:

@Hajo

....hast Du wohl getestet *wink.gif*

 

Besten Dank für den Code.
Leider funktioniert er nicht.
irgendwas wird ausgeführt nur sehe ich nichts, der Cursor springt nicht zum Inhalt den ich in die Inputbox eingeben. Er bleibt stehen am selben Ort.
Gruss Pluto1

 

wenn hast Du nun geantwortet? In meiner Datei geht es, Deine sehe ich nicht.

 

Hallo Hajo
Deine Variante hat bei mir nicht geklappt. Mittlerweile weiss ich auch warum, der Typ lautet bei dir auf Date, das war er in meiner Liste nicht finden konnte, hatte ja normale Zahlen.
Danke Pluto1

 

Hi,

@Pluto

hast du meinen Code probiert?

 

Hallo Chris
Super Sache*Smilie . Hilft mir sehr bei meiner Arbeit
Danke dir viel Mal.
Grusss Pluto1