ich habe eine Liste mir Kundenbestellmengen in Spalte D und AB-Nummern in Spalte E.
Jetzt möchte ich eine Suchfunktion einbauen, in die ich entweder das eine oder das andere eingeben kann.
Wenn die Bestellnr. oder AB-Nr. gefunden wurde, soll zur entsprechenden Zeile gescrollt werden.
So weit bin ich und der 1. Teil klappt auch:
Sub Find()
Dim Search As Range
Dim Article As String
Article = InputBox("Please enter your PO number or our OC number")
If Article = "" Then Exit Sub
ActiveSheet.Range("D7:E5000").Select
For Each Search In Selection
If Search = Article Then
ActiveWindow.ScrollRow = Article
Exit Sub
End If
Next Search
MsgBox "Not found"
End Sub
Das scrollen zu der entsprechenden Zeile klappt nicht und ich weiß nicht genau wie das geht.
"ActiveWindow.ScrollRow = Article" klappt natürlich nicht.
Bitte um Hilfe.