Thema Datum  Von Nutzer Rating
Antwort
11.05.2011 14:56:46 Christian
NotSolved
Blau VBA Suche in Word
 21.05.2011 11:50:52 janpaet
NotSolved

Ansicht des Beitrags:
Von:
janpaet		 Datum:
21.05.2011 11:50:52		 Views:
809		 Rating:
     
Antwort:
  Ja
Thema:
VBA Suche in Word

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.05.2011 14:56:46 Christian
NotSolved
Blau VBA Suche in Word
 21.05.2011 11:50:52 janpaet
NotSolved