Namen suchen
01.10.2004 18:40:21
Rolf
Folgendes Makro sucht nach dem Nachnamen.
Es findet den Namen aber nur wenn er ganz ausgeschrieben ist.
Ist es möglich das Makro so weit zu ändern, das auch nach dem Anfangsbuchstaben gesucht wird.
Zum Beispiel wird Müller-Sausewind gesucht.
Dann möchte ich nur Mül oder Müller eingegeben und der Name wird gesucht.
Alle Namen stehen sortiert nach Alphabeth untereinander.
Sub Suchennamen()
Dim r As Range
Dim s As String
Sheets("Gesamt").Select
Range("B1").Select
s = InputBox( _
prompt:="Nachnamen eingeben!:", _
Default:=" ")
If s = "" Then Exit Sub
Set r = Columns(2).Find( _
what:=s, lookat:=xlWhole, LookIn:=xlValues)
If r Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(r.Row).Select
MsgBox "Es können mehrere gleiche Nachnamen untereinander stehen!!!"
End Sub
Vielen Dank für eure Hilfe!
Gruß
Rolf
Anzeige