suchen/weitersuchen
03.11.2003 22:44:57
Dierk
ich brauche Hilfe bei einer Suchfunktion für eine Warenliste. In diesem Forum bin ich auf untenstehende Lösung gestoßen, die meinen Anforderungen schon sehr nache kommt.
Kann diese Lösung um die Funktion "Weitersuchen" erweitert werden?
Kennt jemand eine Lösungsmöglichkeit?
Besten Dank für Eure Mühen.
Gruß, Dierk
________
Private Sub commandButton1_click()
Dim rngFind As Range
Dim strNumber As String
strNumber = InputBox("Suchen nach:", _
"Liste durchsuchen")
If strNumber = "" Then Exit Sub
Set rngFind = Columns(1).Find(strNumber, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Eintrag wurde nicht gefunden!"
Else
rngFind.Select
With Selection.Interior
.ColorIndex = 4
End With
End If
t = Now
Do Until Now > t + 1 / (24 * 60 * 12)
Loop
Selection.Interior.ColorIndex = 0
End Sub