Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA; Seriendruck Word/Excel

VBA; Seriendruck Word/Excel
11.01.2003 01:16:07
Dieter
Ich möchte über Seriendruck aus Word eine bestimmte Zeile aus Excel importieren (Zeile ist eindeutig).
Über einen Makro habe folgende Zeile generiert:
ActiveDocument.MaiMerge.DataSource.QueryString = SELECT * FROM
(Verzeichnispfad,Dateiname.xls) WHERE ((Var = 100)).
Anstelle des Wertes "100" soll aber eine Variable, die mittels einer InputBox-Variablen ermittelt wird, selektiert werden.
Kann mir jemand sagen, wie die Syntax aussieht. (Die Variable habe ich als Integer definiert)
Schon mal vielen Dank für die Unterstützung





1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA; Seriendruck Word/Excel
11.01.2003 15:43:46
Steffan
Hallo,

veruch es mal so:


Dim zeile As Integer
On Error GoTo Fehler
zeile = CInt(InputBox("Deine Abfrage", "Dein Titel", "Deine Vorgabe"))
ActiveDocument.MaiMerge.DataSource.QueryString = SELECT * FROM
(Verzeichnispfad,Dateiname.xls) WHERE ((Var = zeile))
'...
'evtl. sonstiger Code
'...
Exit Sub
Fehler:
If Err.Number = 13 Then MsgBox "Zahleneingabe erforderlich!", vbCritical, "Dein Titel"
Resume
End Sub


Steffan.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige