Excel-Tabelle an Word-Makro übergeben
06.01.2005 17:09:43
Ggiovanni
Folgende Problemstellung:
Erstes und größtes Problem: Meine VBA-Kenntnisse sind rudimentär, habe also trotz ähnlicher Themen im Archiv meins nicht gelöst bekommen.
Zweites Problem - für Euch sicher keins:
Ich habe unter Excel 97 für einen Freund eine Tabelle gebaut, in denen er geschäftliche Transaktionen niederlegt und aus denen später in Word eine Rechnung erstellt wird. Über einen Filter und ein Makro selektiere und summiere ich in Excel die Daten für die Rechnung.
Ab jetzt wirds -bisher- Frickelei: Word starten, zurück auf die Tabelle, markierten Bereich mit Strg-C kopieren (wenn ich das vor dem Start von Word gemacht habe, hat er das Kopierte nach dem Start von Word wieder vergessen), wieder in Word, Makro starten.
Das Makro fügt diese Tabelle bei einer Textmarke ein, die Tabelle wird anschließend manipuliert und optisch aufbereitet, einige Daten aus der Tabelle werden ausgelesen und an anderer Stelle eingefügt (Rechnungsempfänger usw.).
Ich möchte aber nun einfach nur die in Excel markierte Tabelle automatisch an das Word-Makro übergeben.
Mein bisheriger Versuch (direkt aus dem Forum übernommen:):
______________________________
Sub x()
Const FName As String = "C:\Dokumente und Einstellungen\Eigene Dateien\Sped\Rechnung.dot"
Dim appWord As Word.Application
If Dir(FName) <> "" Then
Set appWord = New Word.Application
appWord.Visible = True
appWord.Documents.Open Filename:=FName
' Makro starten
appWord.Run "tabform"
Else
MsgBox "Das Dokument " & FName & " wurde nicht gefunden!", 64, "Hinweis..."
End If
End Sub
______________________________
Problem: Das Makro startet zwar, aber der "Selection.Paste" Befehl im Word-Makro findet aber leider nicht die Tabelle in der Zwischenablage, sondern das, was ich vor der Tabelle zuletzt kopiert hatte. (Und es wird die Vorlage geöffnet und nicht ein neues Dokument auf Basis der Vorlage).
Wie kann ich das lösen?
Gruß
Ggiovanni