Ich habe hier noch ein Problem mit einem Code:
'Briefbogen Vorstand aufrufen
Private Sub Briefbogen1_Click()
Option Explicit
Sub OpenWordObject()
ActiveSheet.OLEObjects("Object 3").Verb Verb:=xlOpen
End Sub
Irgendwie funktioniert der nicht. :( Der Code soll eine eingebettete Worddatei in Word öffnen. Wo ist denn der Fehler im Code?
Den Objektnamen habe ich abgeglichen und der stimmt.
Danke
Benjamin