Hallo Christian,
es stellt sich noch die Frage, in welcher Form die Lieferanten in der Excel-Datei gespeichert sind und was mit den gefundenen Lieferantendaten geschehen soll (Serienbrief oder ähnliches)?
Aber für einen ganz einfachen Test erstelle Dir mal im VBA-Bereich Deines Worddokumentes ein Benutzer-Formular mit einem Textfeld und einem Button.
- Das Textffeld nennst Du: txtLieferant
- Den Button nennst Du: cmdSuche
- Über Extras -> Verweise muss die Bibliothek: Microsoft Excel x.0 Object Library noch eingebunden werden.
Der VBA-Code im Formular (im Speziellen für den Klick auf den Button cmdSuche) könnten dann wie folgt aussehen:
Option Explicit
'Pfad und Dateiname Deiner Exceldatei
Private Const XLS_PATH As String = "c:\...\dateiname.xls"
'Hier werden ganz einfach die ersten fünf Zellen der ersten Spalte des ersten Tabelleblattes
'durchsucht und bei Übereinstimmung mit dem Inhalt Deines Textfeldes eine Meldung ausgegeben.
Private Sub cmdSuche_Click()
Dim i As Integer
With New Excel.Application
.Workbooks.Open (XLS_PATH)
For i = 1 To 5
If (.Worksheets(1).Cells(i, 1).Value = Me.txtLieferant.Value) Then
Call MsgBox("Habe " & Me.txtLieferant.Value & " gefunden!", vbOKOnly, "Meine Lieferantensuche")
End If
Next
.Quit
End With
End Sub
Viele Grüße
Jan
|