Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Namen suchen

Namen suchen
01.10.2004 18:40:21
Rolf
Hallo Excel Experten!
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
lookat:=xlPart oT
Ulf
oT
AW: lookat:=xlPart oT
01.10.2004 19:11:19
Rolf
Hallo Ulf!
Vielen Dank für deine Hilfe!
Ich habe lookat:=xlWhole durch lookat:=xlPart oT ersetzt.
Funtioniert aber nicht.
Was mache ich falsch?
Kannst du noch mal helfen?
Gruß
Rolf
lookat:=xlPart ohne das oT
Ulf
oT
AW: lookat:=xlPart ohne das oT
01.10.2004 20:59:29
Rolf
Hallo Ulf!
Danke jetzt funkt es!!
Gruß
Rolf
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige