ich habe ein kleineres Problem mit einem Excel-Makro:
Private Sub CommandButton3_Click()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Open("H:\In Arbeit\Überarbeitung Statistik\Test_Bericht.doc")
wrdApp.Documents.Open ("H:\In Arbeit\Überarbeitung Statistik\Test_Bericht.doc")
Set wrdDoc = Nothing
Set wrdApp = Nothing
Application.ActivateMicrosoftApp xlMicrosoftWord
End Sub
Hintergrund:Ich arbeite an einer statistischen Auswertung, bei der später auf Knopfdruck verschiedene Berichte erstellt werden sollen. Jeder dieser Berichte ist entweder in Word oder in PowerPoint erstellt und sollen über Schaltflächen angesteuert werden. Dazu das Makro, da nicht funktioniert, obwohl der Code angeblich keine Fehler enthält.
Sicherlich wären einfache Hyperlinks die beste Lösung, allerdings nicht aus grafisch/optischen Gründen (bspw. lässt sich eine MsgBox nicht über Hyperlinks ansteuern).
Nun suche ich schon einige Tage nach einer Lösung für die Situation bzw. für die Programmierung der Makros.
Habt Ihr eine Idee?