PDA

Vollständige Version anzeigen : Wert aus Inputbox suchen und anspringen


Pluto1
09.07.2014, 14:08
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

Hajo_Zi
09.07.2014, 14:18
Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
<a href="http://hajo-excel.de/select.htm" title="Hinweise zu select usw." >Hinweise zu select usw. Hajo-Excel.de</a>
<a href="http://www.online-excel.de/excel/singsel_vba.php?f=61." >Hinweise zu select usw. Online-Excel.de</a>
<a href="http://www.online-excel.de/excel/singsel_vba.php?f=78." >Hinweise zu select usw. Online-Excel.de</a>

Option Explicit

Sub inputboxaufrufen()
Dim strWert As String
strWert = InputBox("Geben Sie den zu suchenden Wert ein", "Sucheingabe")
If Not IsError(Application.Match(CDbl(Date), Columns(2), 0)) Then
Cells(Application.Match(CDbl(Date), Columns(2), 0), 2).Select
End If
End Sub


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

chris-kaiser
09.07.2014, 14:58
Hi,

Sub inputboxaufrufen()
Dim strWert As Variant
Do
strWert = InputBox("Geben Sie den zu suchenden Wert ein", "Sucheingabe")
'erzwingt eine Eingabe und diese muss als Zahl erkannt werden
Loop While strWert = "" Or Not IsNumeric(strWert)
On Error Resume Next
Application.Goto Range("B2:B65000").Find(strWert, lookat:=xlWhole), True 'soll nicht gescrollt werden auf False setzen oder weglassen
If Err.Number <> 0 Then
MsgBox "Wert wurde nicht gefunden"
End If
On Error GoTo 0
'weiterer Code falls vorhanden
End Sub

@Hajo
Option Explicit

Sub inputboxaufrufen()
Dim strWert As String
strWert = InputBox("Geben Sie den zu suchenden Wert ein", "Sucheingabe")
If Not IsError(Application.Match(CDbl(Date), Columns(2), 0)) Then
Cells(Application.Match(CDbl(Date), Columns(2), 0), 2).Select
End If
End Sub

....hast Du wohl getestet ;)

Pluto1
09.07.2014, 15:14
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

Hajo_Zi
09.07.2014, 15:24
wenn hast Du nun geantwortet? In meiner Datei geht es, Deine sehe ich nicht.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Pluto1
10.07.2014, 07:11
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

chris-kaiser
10.07.2014, 07:12
Hi,

@Pluto

hast du meinen Code probiert?

Pluto1
10.07.2014, 07:13
Hallo Chris
Super Sache:) . Hilft mir sehr bei meiner Arbeit
Danke dir viel Mal.
Grusss Pluto1