Makros und Functions starten aus Word-Makro
07.05.2018 09:38:41
Barbara
ich schaff es nicht, von einem Word-Makro aus Makros und Functions auszuführen, die in einer geschlossenen Excel-Datei (hier "Versuch.xlsm") sind. Natürlich muss diese Datei erst geöffnet werden. sie enthält ein Modul mit folgendem Code:
Option Explicit
Sub Anfang(Bereich As Range)
Bereich.Cells(1, 1).Select
End Sub
Sub HalloWelt()
MsgBox "Hallo Welt"
End Sub
Function Plus5(Zahl As Double) As Double
Plus5 = Zahl + 5
End Function
Sub Test()
Anfang Range("a3", "b5")
ActiveCell.Value = Plus5(3.14)
End Sub
Das Word-Dokument, von dem aus das Ganze gestartet werden soll, habe ich mit folgendem Code versehen:
Sub WordMakro()
Dim a, b, c
Dim wb
Set wb = Workbooks.Open("Versuch.xlsm")
With wb.Parent
.Visible = True
.Run "HalloWelt"
.Run "Anfang Range("a3", "b5")"
End With
End Sub
LG Barbara