Fehlverhalten mit selbst gemachter VBA-Funktion

Hallo Leute,
ich habe ein merkwürdiges Fehlverhalten bei der Verwendung einer selbst geschriebenen VBA-Funktion in 2 miteinander verbundenen Excel-Mappen:
im VBA-Editor sehe ich meine 3 Projekte:
1. ein .xla-Projekt mit meinen selbst geschriebenen VBA-Funktionen
2. .xls-Mappe1
3. .xls-Mappe2
die Mappen 1 und 2 sind gleichzeitig geöffnet.
verwende ich meine Funktion RND in Mappe1 funktioniert sie richtig.
verwende ich diese Funktion in Mappe2, deren Zellen mit Mappe1 verknüft sind (aber nicht umgekeht!) bekomme ich den Fehler: #WERT angezeigt.
öffne ich die Fehlerüberprüfung bekomme ich den Fehlertext:
"ein in der Formel verwendeter Wert ist vom falschen Datentyp." angzeigt;
diese Fehleranalyse ist falsch!
jetzt kommt das merkwürdige Fehlverhalten:
1.) ich kopiere die Zelle aus Mappe2 in irgendeine Zelle in Mappe1:
jetzt wird in Mappe1 das richtige Ergebnis angezeigt
und auch in Mappe2 wird jetzt das richtige Ergebnis angezeigt !!!
ich speichere beide Mappen ab, schliesse sie und öffne sie erneut.
2.) jetzt wird in beiden Mappen wieder der Fehler #WERT in beiden Zellen des gleichen Inhaltes angezeigt;
klicke ich auf die Zelle in Mappe1 werden danach die Zellinhalte in beiden Mappen wieder richtig angezeigt!
woran kann das liegen ?
Gruss an alle die dies lesen
Dank an alle die mir antworten
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function RND3(RundungsArt As Byte, Ausdruck As String) Application.Volatile Dim Anzahl_Nachkommastellen As Byte Anzahl_Nachkommastellen = 2 If IsNumeric(Ausdruck) Then RND3 = CDbl(Ausdruck) Else RND3 = Evaluate(Ausdruck) End If If RundungsArt < 10 Then ' wenn Globales Runden erlaubt ist If [GlobalRunden] > 1 Then RundungsArt = [GlobalRunden] Else: RundungsArt = RundungsArt - 10 End If Select Case RundungsArt Case 2: RND3 = WorksheetFunction.Round(RND, Anzahl_Nachkommastellen) Case 3: RND3 = WorksheetFunction.RoundDown(RND, Anzahl_Nachkommastellen) Case 4: RND3 = WorksheetFunction.RoundUp(RND, Anzahl_Nachkommastellen) End Select End Function

Hallo Luc:-?
ich habe von VBA-Programmierung so gut wie keine Ahnung,
kann aber in anderen Programmiersprachen programmieren.
dein Verdacht ist wahrscheinlich nicht richtig.
ich habe mal die Zeilen mit "kritischen" Ausdrücken modifiziert:
Application Volatile ... in einen Kommentar verwandelt,
CDBl ... und
Evaluate ... durch eine Gleitkommazahl ersetzt.
Das ändert am fehlerhaften Programmverhalten nichts !!!
Die Ursache muss wonanders liegen, da es ja in Mappe1 funktioniert!
(nur nebenbei:
ich habe dabei bemerkt das sich noch 3 fehlerhafte Zeilen im Case-Statement befunden haben, statt RND hinter der Klammer muss es RND3 heissen;
merkwürdigerweise wird das vom VBA-Editor nicht angemosert;
wird wohl vom Interpreter erst bei der Ausführung bemerkt.
da ich testhalber zuletzt nur mit RundungsArt =1 probiert habe ist das case-statement nicht ausgeführt worden.)
der Fehler liegt irgendwo beim Zusammenspiel der Mappen 1 und 2.
nochmal zur Erinnerung:
das Fehlverhalten ist immer das Gleiche:
----------------------------------------
öffne ich nur Mappe1 funktioniert alles richtig,
(auch wenn ich die Funktion umbenenne oder inhaltlich ändere):
bei Programmstart steht in der Testzelle der richtige (unberechnete!) Wert
klicke ich die Zelle an wird der Wert richtig berechnet.
öffne ich danach Mappe2 und lasse die Verknüpfungen zu Mappe1 aktualisieren:
in den Testzellen beider Mappen steht nun der Fehlerwert #WERT !!!
klicke ich die Testzelle in Mappe1 an und ändere den Wert, zeigt Testzelle in Mappe1 das
... richtige Ergebniss an und Testzelle in Mappe2 auch ihren richtigen Inhalt an,
... es ist aber unklar ob er neu berechnet wurde oder nur den alte Inhalt angezeigt wird!?
klicke ich danach die Testzelle in Mappe2(!) an erhalten die Testzellen in beiden Mappen wieder den #WERT.
ich habe mittlerweile erfolglos Folgendes ausprobiert:
* einen neuen Modul in der Funktionen-Sammlung .xla erstellt und die Funktion mit anderem Namen versehen und in Mappe2 aufgerufen;
* die neue Funktion in der Funktions-Sammlung wieder gelöscht, dann als Modul in Mappe2 erstellt und in Mappe2 aufgerufen;
was kann ich noch versuchen?
Gruss
Jürgen

Beliebteste Forumthreads (12 Monate)

Fehlverhalten mit selbst gemachter VBA-Funktion

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread