Range("Namen").Select
Selection.Find(What:=spe2, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Hier wird in der Datei Erfassung.xls im Feld mit dem Namen spe2 ein Namen eingegeben dieser wird in der Datei Daten.xls gesucht in einer Spalte mit dem Namen "Namen" gesucht. Dann wird alles aus dieser Zeile ( Namen , Adresse , Telefon .... ) In das Formular Erfassung.xls geschieben. Das funktionier alles.
Nur wenn ein Name mehrfach da ist nimmt er immer den ersten.
Wie kann ich es machen das ich die Option habe aus allen Treffern zu wählen !