---

MicrosoftVisualBasicforApplications.pdf

Guten Tag,

ich habe gestern damit begonnen, mir beizubringen, wie in in VBA Makros schreiben kann. Ich habe mir dazu das Tutorial von cad.de (http://inventor.cad.de/i_vba/pdf_zip/) geholt und bin bereits auf mein erstes Problem gestoßen.

Hier der Code mit dem Fehler:

Code:

---

Option Explicit

Public Sub CogTool()
    Dim oDoc As Document
   
    Set oDoc = ThisApplication.ActiveDocument
    If oDoc.DocumentType <> kAssemblyDocumentObject Then
        MsgBox "Eine Baugruppenzeichnung muss aktiv sein!"
        Exit Sub
    End If
   
    frmCog.Show vbModeless
   
    Set oDoc = Nothing
   
End Sub

---

Die Zeile "frmCog.Show vbModeless" wird mir als "Run-time error'13': Type mismatch" angezeigt.
Ich habe auch schon alles durchgeschaut, bin aber mit meine aktuellen Wissensstand nicht fündig geworden.

Vielen Dank im Voraus!

Gruß
Fabian

[Diese Nachricht wurde von FabianCAD am 26. Okt. 2017 editiert.]

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

---

Hallo Fabian,

da ist ja auch keine Form definiert. Lösche die Zeile einfach mal.

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

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

---

Guten Tag Lothar,

danke erstmal für deine Antwort.

Wenn ich die Zeile raus lösche und das Makro im Inventor rauslösche passiert gar nichts.

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

---

Hallo 

Also, VBA versucht hier eine Userform mit dem Namen frmCog zu initialisieren. Da aller Wahrscheinlichkeit keine von dir erstellt wurde, wird es crashen, normalerweise kommt in diesem Fall eine andere Fehlermeldung. In deinem Dokument habe ich gesehen dass ganz oben "frmCog - 2" steht, hast du das in deinen Code übernommen?

Der Fehler an sich, liegt nicht an der Zeile sondern an der Umgebung, dort ist der Fehler zu suchen.

MFG

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