VBA Funktion nur aufrufen wenn vorhanden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AppRunTest() Dim FuncRC As Variant Dim Zufall As Variant Zufall = Int(1000000 * Rnd) FuncRC = Zufall On Error Resume Next FuncRC = Application.Run("AppRun", False, "Test") On Error GoTo 0 If FuncRC = Zufall Then Debug.Print "Funktion nicht vorhanden" Else Debug.Print "Ergebnis: " & FuncRC End If End Sub

…mit bedingter Kompilierung lösen, W H21,
indem man eine bedingte Konstante dafür setzt und je nachdem, ob die Fkt im speziellen Fall vorhanden ist oder verwendet wdn soll, ihren Wert manuell festlegt. Im Pgm wird dann der Wert dieser Konstanten abgefragt und die für den Ausführungsfall vorgesehenen Befehle danach eingebunden. Je nachdem, welcher Wert für die Konstante eingetragen wurde, wird dann dieser PgmTeil kompiliert oder eben nicht. Im 2.Fall entfallen dann natürlich auch darauf bezogene FehlerMeldungen, weil ja der nicht kompiliert wurde, also de facto nicht vorhanden ist.
Übrigens kann man statt Run auch CallByName auf ähnliche Weise verwenden, nur muss die Fkt dann einem Objekt zuordenbar sein (wie zB bei WorksheetFunctions), idR ein KlassenModul (mit eindeutigem Namen). Auch ein standardmäßig bereits vorhandenes DokumentKlassenmodul wäre möglich (ggf das Dokument eindeutig intern umbenennen → CodeName!), das dann die Fkt enthalten müsste.
OsterGruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

Hallo, alle die sich mit meinem Problem beschäftigt haben (oder es in Zukunft noch machen werden).
Inzwischen bin ich von der "bedingten Kompilierung" nicht mehr überzeugt. Es funktioniert nur, wenn innerhalb des eigenen Codes die #Const-Definitionen gemacht werden. Es gibt keine Möglichkeit, das für die gesamte Arbeitsmappe zu tun. Mein Versuch, die #Const-Definition mit einem Wert aus einer globalen Konstante zu versehen, ist genauso gescheitert. Und #If-Abfragen auf #Konstanten, die gar nicht definiert sind, werden nicht abgewiesen.
Mein Ansatz war und ist: ich möchte eine einheitiche Funktion für mehrere Mappen bereitstellen, die jedoch durchaus unterschiedlich ablaufen kann. Das ist durch globale Variable durchaus realisierbar. Ebenso könnte beim Aufruf ein Parameter für die Ablaufsteuerung vorgesehen sein. Das Problem, auf das ich dann gestoßen bin, ist: wenn an einer Stelle des Codes eine Funktion aufgerufen wird, und diese Funktion nicht eingebunden ist, "meckert" Excel; auch dann, wenn die Stelle des Codes nie ausgeführt wird.
Wenn ich in dem Code zuerst die für jede Mappe gültigen #Const-Werte zuweisen muss, gibt es kein einheitiches Modul mehr.
Ich werde den von Daniel vorgeschlagenen Weg wählen, und die fragliche Funktion mit Hilfe von Application.Run aufrufen. Meine Tests dafür waren sehr erfolgreich. Und ich habe auch eine Möglichkeit gefunden, wie ich herausfinden kann, ob die Funktion auch tatsächlich ausgeführt wurde (siehe mein Testcode in diesem Thread). Ist dies nicht der Fall, so muss ich dann eine entsprechende Fehlermeldung ausgeben. Dass die Funktion aufgerufen werden soll, wurde durch eine globale Variable bzw. einem Parameter beim Aufruf verlangt. Dann sollte sie auch in der Mappe enthalten sein.
Für mich ist das Problem nun endgültig erledigt; ich habe eine funktionierende Lösung erhalten.
Nochmals: Danke
Gruß W H21

Beliebteste Forumthreads (12 Monate)

VBA Funktion nur aufrufen wenn vorhanden

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Funktion nur aufrufen wenn vorhanden

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread