Mehrere Resultate bei Suche
23.01.2004 21:52:20
Timo
ich hab da nen kleines Problem, dass ich gestern schonmal drinnen hatte, aber das noch nicht geloest ist (liegt aber eher an meiner Unfaehigkeit!)
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 welches die mehrfachen Nachnamen mit dem Zusatz der Vornamen darstellt und eine Auswahl zulaesst!
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 ("Name mehrfach")
On Error Resume Next
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
Vielen Dank,
Timo