DoubleVariablen werden zu Variant bei Modulaufruf

Hallo Forum,
hier mein Problem.
Ich möchte eine Berechnung durchführen. Dazu benutze ich zwei Module, ModulBer in dem die gesamte Berechnungsformeln drin sind und ModulFun in dem ein paar Functions drin sind. Ich rufe also über einen CommandButton das ModulBer auf und während die Berechnung läuft werden immer wieder die Funktionen im ModulFun aufgerufen, so sollte es zumindest sein.
Das Problem: beim kompilieren werden sämtliche von mir als Double bzw. Integer deklarierten Variablen zu Variant/String umdeklariert, so dass meine Functions nichts mehr mit den Variablen anfangen können (Typen unverträglich).
Ich habe beide Module als Public deklariert.
Am Anfang beider Module habe ich "Option Explicit" stehen, ist es möglich dass ich die "Option Private-Anweisung" irgendwo verwenden muss? Wenn ja, muss ich die auch vor jede Function schreiben?
Die Variablendeklaration nahm ich zunächst nur im ModulBer vor, als das Problem erstmals auftrat habe ich den kompletten Deklarationsabschnitt auch in das ModulFun kopiert.
Ich bitte um Rat. Vielen Dank schon mal.
Gruß
Matthias M.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
----------------------------------


Private Sub cmdBerechnen_Click()
ModulBer.Berechnen
End Sub

---------------------------------
Das hier ist dann mein ModulBer, welches auch ohne Probleme durchlaufen wird.
-----------------------------------------
Option Explicit
Public Sub Berechnen()
'Variablen deklarieren:
Dim Zwei As Double 'Komponente doppelt vorhanden!
Dim pVer(), Tein() As Double 'Basiswerte
Dim pNull, P As Double ''usw.
.
.
pNull = pNullFun(mDum:=mRGges) 'Funktion aufrufen!
P = ModulFun.pFun(iDum:=Zwei, pVerDum:=pVer(colIndex), TeinDum:=Tein(colIndex), mRGGesDum:=mRGges, pUDum:=pU(colIndex), mRGDum:=mRG(colIndex), pUmgebDum:=pUmgeb, ThiLuvoDum:=ThiLuVo, pNullDum:=pNull, pSumDum:=pUSum, dTSumDum:=dTSum)
--------------------------------------------------------------------
Und hier die Funktionen, da hab ich dann "Typen unverträglich".
------------------------------------
Function pNullFun(mDum) As Single
pNullFun = 21.5 * (mDum / 1292.6) ^ 2 + 6.5
End Function
-----------------------------------------------
Function pFun(iDum, pVerDum, TeinDum, mRGGesDum, pUDum, pUmgebDum, ThiLuvoDum, mRGDum, pNullDum, pSumDum, dTSumDum) As Double
pFun = pVerDum * (mRGGesDum / iDum / mRGDum) ^ 2 * (273.15 + ThiLuvoDum + dTSumDum) / (273.15 + TeinDum) * (pUmgebDum - pUDum) / (pUmgebDum - pNullDum - pSumDum)
End Function
-----------------------------------------------
Gruß
Matthias M

Beliebteste Forumthreads (12 Monate)

DoubleVariablen werden zu Variant bei Modulaufruf

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

DoubleVariablen werden zu Variant bei Modulaufruf

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread