Zelle aus Excel auslesen und in Word einfügen?

Computer: Software & Programmierung Visual Basic
#1

Habe ein Rechnungsausgangsbuch in Excel. Die Rechnungsnummern stehen in Spalte A untereinander (keine Leerzeilen). Rechnungen schreibe ich überwiegend in Word. Ist es möglich, dass ich in Word ein Makro einfüge, das beim Aufruf des Dokumentes automatisch meine Excel-Liste prüft und die nächste freie Rechnungsnummer in eine bestimmte Textmarke einfügt? Die nächste Rechnungsnummer wäre im Prinzip das letzte Feld in Spalte A + 1. Es muß allerdings sichergestellt sein, dass wenn ich eine abgespeicherte Rechnung wieder aufrufe, nicht wieder eine aktuelle Rechnungsnummer eingetragen wird, sondern die bereits vergebenen Bestand hat.

Danke schonmal!

#2

Klar, du kannst Word von Excel aus automatisieren, etwa so:

Dim oWord as New Word.Application
with oWord
 .opendocument "C:\woauchimmer\deinword.doc"
 .selection.Goto What:=wdGoToBookmark, Name:="DeineBookmark"
 .selection.TypeText Text:=Range("A1").Text
 .ActiveDocument.Save
 .Quit
end with
set oWord = Nothing

… oder wie auch immer. (Zeichne am besten das, was du machen willst als Word-VBA-Makro auf und portiere es dann nach Excel).

Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - Access / VBA Tipps & Tricks)