---

Hallo zusammen!
Ich bin neu hier und hab bis jetzt hauptsächlich Erfahrungen mit Excel VBA gesammelt. Jetzt versuche ich mich ein bißchen an Inventor VBA.

Ich hab ein kleines Tool geschrieben, das eine verknüpfte Excel-Tabelle öffnen und wenn diese wieder geschlossen wird, die Baugruppe aktualisieren soll. Wenn ich in Einzelschritten durchgehe, ergeben sich keine Probleme, wenn ich allerdings das Tool durch ein AutoOpen starten lasse, bekomme ich folgende Fehlermeldung:

"Laufzeitfehler'91: Objektvariable oder With Blockvariable nicht festgelegt."
Die Fehlermeldung bezieht sich auf folgende Zeile: docInventor.Update

Der gesamte Code lautet:

Option Explicit
Public docInventor As Document

Sub AutoOpen()
UserForm1.Show
End Sub

Public Sub Dimension()

'Variablen Deklaration
  Dim objExcel As Excel.Application
  Dim objWorkbook As Workbook
  Dim objWorksheet As WorkSheet
'************************************************************
  Set docInventor = ThisApplication.ActiveDocument
 
'Excel-Dokument öffnen
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open("C:\Massblatt1.xls")
  Set objWorksheet = objWorkbook.ActiveSheet
  objExcel.Visible = True
  While objExcel.Visible = True
  Wend
  objExcel.Quit 'ist eigentlich überflüssig
 
'Baugruppe aktualisieren
  docInventor.Update
   
End Sub

Jetzt meine Frage, weiß jemand warum diese Fehlermeldung ausgelöst wird und was ich besser machen könnte? 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo

änder UserForm1.Show
in
UserForm1.Show vbModeless

dann müsste es gehen

mir ist nicht bekannt was Du machen möchtes, nur Quelltext in Dokumentprojekt ablegen kann zu Problemen führen.
Wwähre es nicht besser Daten auf Knopfdruck zu holen?

------------------
das Leben ist schön, meint Ingolf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Joerg,

wenn ich das richtig sehe, ist es so:

Du definiert eine globale Variable: docInventor
dann definiert Du die Prozeduren.

Wenn Du jetzt Schritt für Schritt durchgehst, wird docInventor definiert.
Wenn Du mit AutoOpen startest, dann ist der Startpumkt nach der Definition und docInventor damit unbekannt.

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Ibcad:

Das löst das Problem nicht. Globale Variablen kann man eigentlich immer vor den Prozeduren deklarieren.

@P164:

Vielen Dank, das hat das Problem mit der Fehlermeldung gelöst.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP