Doppeltes Suchergebnis
22.01.2004 23:16:53
Timo
hab da nen kleines Problem.
Ich habe ne List, die ich nach Nachnamen durchsuche. Da es aber manche Nachnamen doppelt gibt. Moechte ich, dass in diesem Fall ein neues UserForm geladen wird mit der Auswahl (nachname erweitert mit vorname)
Bisher sieht es bei mir wie folgt aus:
Dim firstaddress As String, msg As Integer
With Worksheets("Tabelle1").Range("a1:a500")
Set c = .Find(Nachname.Value, LookIn:=xlValues)
If c Is Nothing Then
Beep
MsgBox "Namen nicht gefunden!"
Exit Sub
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = Nachname.Value
Set c = .FindNext(c)
If firstaddress <> c.Address Then MsgBox ("Hell")
On Error Resume Next
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
Vielen Dank,
Timo