suchen/weitersuchen ergänzen
01.12.2004 14:37:30
Korl
Ich habe eine Datenbank bestehend aus PLZ, Orte, Straßen, Kreiskürzel und
Nun wird hier hauptsächlich nach Orte und Straßen gesucht.
In der Recherche habe ich ein Standartmodel für suchen/weitersuchen gefunden, welches auch so ganz gut funktioniert.
Mein Problem:
1. Er beginnt die Suche ab der aktiven Zelle abwärts. Mein Wunsch, stets ab der 1. Zeile die Suche zu beginnen.
2. Bei doppelten Einträgen durchläuft der Code alle erst durch. Mein Wunsch, die Suche nach Wunsch an der gewünschten Stelle abbrechen zu können.
Hier den Code, den ich gefunden habe:
Sub Auswahl()
Dim rng As Range
Dim sBegriff As String, sAdress As String
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="Hallo")
If sBegriff = "" Then Exit Sub
Set rng = Cells.Find( _
What:=sBegriff, _
Lookat:=xlWhole, _
LookIn:=xlValues, _
MatchCase:=False, _
After:=ActiveCell)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
MsgBox rng.Address(False, False)
rng.Offset(1).Select
Do
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Loop
End Sub
Lässt sich dieser Code an meine Bedürfnisse anpassen?
Gruß Korl