Application.Caller.Workbook als Objekt in AddIn

Moin zusammen,
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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Onur, moin Luc,
danke für Eure Antworten.
Thisworkbook liefert immer das Addin selbst, genau.
Acitveworkbook funktioniert aber ich trau dem immer nicht 100%, weil ich oft 5 oder mehr Excelworkbooks gleichzeitig geöffnet habe und ich den Eindruck habe, dass der "Cursor" oder "Zeiger" oder wie man es auch nennen mag, der bestimmt, welches Workbook gerade "active" ist, auch mal auf ein falsches Workbook zeigt.
Ich belasse es jetzt bei Activeworkbook, denn
Set xlbook_AUSF = ActiveWorkbook
passiet ja ganz am Anfang und die Zuweisung des Objekts sollte sich ja nicht ändern, wenn der Code ausgeführt wird, egal, auf welche Arbeitsmappe der "Zeiger" im Codeverlauf auch zeigen mag.
Luc, manches in Deiner Antwort verstehe ich nicht so ganz, z.B. das, was sich darauf bezieht, von wo man etwas "called"; Mit "Fml" meinst du eine Formel in einer Zelle, oder? Also dass ich =FUNKTION_DGRL_Einstufung [evtl. noch mit Eingabeparametern] in einer Zelle nutze?
Das hätte ja den Vorteil, dass die Nutzer keinen Knopf drücken, sondern dass die Einstufung immer sofort erfolgen würde. Das wäre sogar besser. Während der Einstufung werden auf dem Weg zum Endergebnis noch Zwischenergebnisse produziert, kann ich die mit "Unterfunktionen" oder ähnlichem in andere Zellen ausgeben?
Was du wohl mit Parent.Parent meinst ist folgende Lösung, die ich gerade ausprobiert habe, die auch funktioniert aber auch auf dem "active"-Prinzip basiert (Jetzt bin ich drauf gekommen mit Googles Hilfe aber vor diesem Post noch nicht):
Set xlbook_AUSF = ActiveSheet.Shapes(Application.Caller).Parent.Parent

Beliebteste Forumthreads (12 Monate)

Application.Caller.Workbook als Objekt in AddIn

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread