Problem mit FunctionDialog

Guten Tag,
ich habe folgendes Problem:
Ich habe mehrere Funktionen erstellt und ein Ribbon. Wenn ich im Ribbon auf einen Button klicke, wird der FunctionDialog mit einer entsprechenden Funktion vorbelegt gestartet. Dabei gehe ich wie folgt vor:


ActiveCell.Formula = "=MeineFunktion1()"
Application.Dialogs.Item(xlDialogFunctionWizard).Show

Nun habe ich mehrere Funktionen auf diese Weise vorbereitet. Bei einigen funktioniert das einwandfrei, bei anderen nicht. Nach langer Suche, habe ich jetzt rausgefunden, dass es Probleme gibt, wenn einer der Funktionsargumente ein String ist. Dann ist das Ergebnis stets #Wert, obwohl die Funktion zum Schluss richtig erstellt wurde. Drücke ich nochmal F2 und Enter ist das Ergebnis korrekt. Es trifft aber nicht auf alle Funktionen zu, sondern nur auf einige. Bei manchen machen Strings keine Probleme. Hat jemand eine Idee dazu ?
Vielen Dank und vG.
AW

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Morgen,
kein Grund zur Aufregung - ich dachte mir schon, dass ich noch weiter ausholen muss. Es ist etwas komplexer und einiges basiert auch auf einer DLL. Ich versuche es aber mal.
Zunächst gibt es die Callback aus dem Ribbon:


Sub InsertMyFunction1()
'//Aktuellen Zelleninhalt merken
MyCurrentCellContent = ActiveCell.Formula
'//Prepopulation und Dialog aufrufen
ActiveCell.Formula = "=MyFunction1()"
Application.Dialogs.Item(xlDialogFunctionWizard).Show
'//Bei Abbruch
If ActiveCell.Formula = "=MyFunction1()" Then
ActiveCell.Formula = MyCurrentCellContent
End If
End Sub

Dann kommt die eigentliche UDF ins Spiel:


Function MyFunction1(MyInteger1 as Integer, MyString1 as String) as String
'//an dieser Stelle wird ein Objekt meiner DLL instanziert:
Dim MyObject as new MyDLL.MyClass1
'//dann werden dem Objekt Eigenschaften zugewiesen
MyObject.MyClassInteger = MyInteger1
MyObject.MyClassString = MyString1
'//und dann soll das Ergebnis zurück gegeben werden
MyFunction=MyObject.MyResult
End Function

Der Hund liegt irgendwo dort begraben, wo dem Objekt die Eigenschaft MyClassString = MyString1 zugewiesen wird. Wenn ich es so mache wie im Code oben, kommt als Ergebnis #Wert (Zelle mit F2 aktualisiert - alles ist korrekt). Wenn ich statt dessen einen festen Wert zuweise, z.B. 48 oder auch "48" funktioniert es. CStr(MyString1) funktioniert wiederum nicht. Jetzt ist wahrscheinliche die erste Frage, warum ich für eine Zahl einen String verwende. Die Zahl ist nur eine mögliche Angabe. Der Anwender könnte in anderen Fällen z.B. 1.4.6 angeben.
Wenn ich im FunctionDialog die 48 mit Anführungszeichen schreibe (also "48") funktioniert es. Das erkennt der Anwender aber wahrscheinlich nicht so einfach. Und vor allem gibt es weitere Funktionen, in denen zusätzliche Argumente angeben werden müssen, da funktioniert es komischerweise. Auch wenn ich in der Funktion oben hinter dem Argument MyString1 noch ein weiteres MyInteger2 as Integer angeben lassen, ohne das der Wert weiter verarbeitet wird, funktioniert es.
Beim Debuggen springt die Codeausführung nach dem Klick auf OK vom FunctionDialog auch nicht zurück in die Ribbon-Callback

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread