Namen suchen
31.12.2005 18:31:45
Hans
Ich habe 2 Dateien . DATEN.xls und Erfassung.xls
In der einen (DATEN.xls) stehen untereinander die Kundennamen , Auftragsnummer , daneben dann in weiteren Feldern alle weiteren Daten dieses Kunden.
Ich habe ein Markro mit dem ich bei Eingabe der Aufragsnummer alle Daten dieser Zeile in eine Engabemaske in die andere Datei kopiert werden. Dies funktioniert auch wunderbar ( Unten ist dieses Makro )
Nun möchte ich auch nach Namen suchen können. Hier ist es aber möglich das es mehrere mit dem gleichen Namen gibt. Er überträgt immer nur die erste Zeile mit dem Namen.
Wie kann ich es machen das ein Fenster aufgeht und ich auswählen kann welcher Kunde bei gleichem Namen gemeint ist !
Spe1 .... sind die Feldernamen der Eingabemaske
In Spe8 steht die Aufragsnummer
In Spe2 steht der Kundenamen
Sub Kunden_suchen()
spe8 = Range("spe8")
If spe8 = "" Then
MsgBox "Es fehlt die Autragsnummer!", 0, "Antwortfenster"
Else
Windows("DATEN.xls").Activate
Sheets("Daten Erfassung").Select
Range("Daten").Select
Selection.Find(What:=spe8, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell = spe8
spe1 = Selection.Offset(0, 3)
spe2 = Selection.Offset(0, 4)
spe3 = Selection.Offset(0, 6)
spe4 = Selection.Offset(0, 7)
spe5 = Selection.Offset(0, 8)
spe6 = Selection.Offset(0, 9)
spe7 = Selection.Offset(0, 10)
Windows("Erfassung.xls").Activate
Sheets("Eingabe Endkunde").Select
Range("spe1") = spe1
Range("spe2") = spe2
Range("spe3") = spe3
Range("spe4") = spe4
Range("spe5") = spe5
Range("spe6") = spe6
Range("spe7") = spe7
End Sub