Suchfunktion nur für bestimmte Spalten
01.02.2005 10:00:08
Niri
In einer Arbeitsmappe werden Name, Vorname, spezielle dazugehörige Nummern und Geburtsdaten aufgeführt; in manchen Fällen kommen noch Beschreibungen dazu. Mit folgendem soll nun nach Name, Vorname oder Geburtsdatum gesucht werden. Problematisch ist, dass bei einem Namen wie Stark evt. auch Suchergebnisse in der Beschreibungsspalte aufgeführt werden, was natürlich nicht vorkommen sollte.
Hat jemand eine Idee wie ich das ganzeumschreiben kann?
Danke schonmal im Voraus.
Niri
Sub Auswahl()
Dim rng As Range
Dim sBegriff As String, sAdress As String, sFrage As String
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="")
If sBegriff = "" Then Exit Sub
Set rng = Cells.Find( _
What:=sBegriff, _
Lookat:=xlPart, _
LookIn:=xlValues, _
MatchCase:=False, _
After:=Range("IV65536"))
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAdress = rng.Address
sFrage = MsgBox("Fundstelle:" & Space(25) & vbLf & vbLf & _
vbTab & rng.Address(False, False) & vbLf & vbLf & _
"Weitersuchen?", vbYesNo, "Fundstelle")
If sFrage = vbNo Then
Application.Goto rng, True
Exit Sub
End If
Do
Set rng = Cells.FindNext(After:=rng)
If rng.Address = sAdress Then Exit Sub
rng.Select
sFrage = MsgBox("Fundstelle:" & Space(25) & vbLf & vbLf & _
vbTab & rng.Address(False, False) & vbLf & vbLf & _
"Weitersuchen?", vbYesNo, "Fundstelle")
If sFrage = vbNo Then
Exit Sub
End If
Loop
End Sub