Hallo zusammen,
ich hoffe mir kann mal wieder jemand helfen.
Ich muss in einer Baugruppe hintereinander Unterbaugruppen markieren, deren Werte ausgelesen und zusammengefasst in einer Excelliste erfasst werden.
Dazu möchte ich eine MsgBox erscheinen lassen, die mir angibt, welche Teile ich als nächstes auswählen soll. Soweit so gut.
Ich habe mir eine MessageBox als nonModal geschaffen.
Code:
Private Declare Function MessageBox Lib "User32" Alias "MessageBoxA" (Optional ByVal hWnd As Long,_
Optional ByVal lpText As String,_
Optional ByVal lpCaption As String,_
Optional ByVal wType As Long) As Long
Anschließend in der Sub wird das ganze aufgerufen:
Code:
Dim Response As Long
Response = MessageBox(&O0, "Alle Außenwandlemente gewählt?", "My Question", vbOKCancel + vbSystemModal)
If Response = vbOK Then
...
else
...
End if
Funktioniert auch super, wenn ich es aus dem VBA-Editor mit F5 starte. Die MsgBox ist sichtbar und ich kann trotzdem im Inventor Sachen markieren.
Sobald ich das Macro aber aus Inventor selbst starte, kann ich nichts mehr machen, die MsgBox ist dann wieder modal.
Weiß jemand, was ich falsch mache?
Gruß Chris
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP