Application.Caller.Workbook als Objekt in AddIn
10.10.2018 19:41:01
Andreas
ich möchte ein AddIn schreiben, dass Apparate nach der europäischen Druckgeräterichtlinie anhand von Druck, Volumen, inneres Medium etc. in die richtige Kategorie einteilt. Dazu möchte ich in einer beliebigen *.xlsm, die das AddIn immer aufruft folgenden Code ausführen:
Sub DGRL_Einstufung_aufrufen()
Application.Run ("AddIn_DGRL_Einstufung.xlam!FUNKTION_DGRL_Einstufung")
End Sub
...Soweit funktioniert es, ich starte die Funktion "FUNKTION_DGRL_Einstufung", die noch keine Eingabeparameter besitzt in dem AddIn.In dem AddIn möchte ich Code haben, der ungefähr so aussieht:
Function FUNKTION_DGRL_Einstufung()
Set xlbook_AUSF = Application.Caller.Workbook
End Function
...weil ich die Werte aus Zellen mit Namen wie "Druck", die in dem ausführenden Workbook enthalten sind, mit-------------------------------------------------------------------
Druck = xlbook_AUSF.Names("Druck").RefersToRange.Value
-------------------------------------------------------------------
...weiterverwenden möchte
Die Zeile...
-------------------------------------------------------------------
Set xlbook_AUSF = Application.Caller.Workbook
-------------------------------------------------------------------
...in dem AddIn wirft den Fehler "Objekt erforderlich" auf.
Mit Objekten habe ich immer meine Probleme und kriege einfach nicht raus, wie der richtige Befehl lautet.
Vielleicht ist das, was ich möchte, ja auch gar nicht möglich.
Wie immer für jede Hilfe dankbar!