VBA Fehlermeldung Erwartet Datenfeld

Private Sub cmd_Rechnung_Click() Dim rhow As Double 'Rho Wasser Dim rhoEt As Double 'Rho Ethanol Dim MW As Double 'Molmasse Wasser Dim MEt As Double 'Molmasse Ethanol Dim vE As Double 'Volumenanteil Ethanol Dim Verh As Double 'Schnitt V/L0 Dim fKBy As Double 'Komponentenbilanz Dim fKBys As Double 'Ableitung Komponentenbilanz Dim yVLEs As Double 'Ableitung yVLE Dim x0 As Double, x As Double 'Startwert und x Dim eps As Double 'Konvergenzschranke Dim k As Integer 'Laufvariable vE = Range("C5") Verh = Range("C6") rhow = Range("C7") rhoEt = Range("C8") MW = Range("C9") MEt = Range("C10") x0 = Range("C11") eps = Range("C12") x = x0 For k = 1 To 50 'Komponentenbilanz x=(x0-(Verh)*y)/(1-(Verh)) fKBy = (x0 - (1 - Verh) * x) / Verh fKBys = (fKBy(x * 1.01) - fKBy(x)) / (x * 0.01) 'hier erscheint Fehler bei fKBy x = x - fKBy(x) / fKBys Cells(6 + k, 11) = x Cells(6 + k, 12) = fKBy(x) If (Abs(fKBy(x))

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Jetzt weiss ich, was fKBy sein soll, es ist

x=(x0-(Verh)*y)/(1-(Verh))

nach y aufgelöst, also doch die Funktion.
Diese Funktion musst du auch also solche anlegen - es genügt nicht, dass du sie einfach mit

fKBy = (x0 - (1 - Verh) * x) / Verh

irgendwo aufschreibst.
Du musst Verh und x0 entweder an die Funktion mitübergeben oder (besser) sie als Public deklarieren.

Option Explicit
Public x0 As Double
Public Verh As Double
Private Sub cmd_Rechnung_Click()
Dim rhow As Double 'Rho Wasser
Dim rhoEt As Double 'Rho Ethanol
Dim MW As Double 'Molmasse Wasser
Dim MEt As Double 'Molmasse Ethanol
Dim vE As Double 'Volumenanteil Ethanol
'Dim Verh As Double 'Schnitt V/L0
'Dim fKBy As Double 'Komponentenbilanz
Dim fKBys As Double 'Ableitung Komponentenbilanz
Dim yVLEs As Double 'Ableitung yVLE
Dim x As Double 'Startwert und x
Dim eps As Double 'Konvergenzschranke
Dim k As Integer 'Laufvariable
vE = Range("C5")
Verh = Range("C6")
rhow = Range("C7")
rhoEt = Range("C8")
MW = Range("C9")
MEt = Range("C10")
x0 = Range("C11")
eps = Range("C12")
x = x0
For k = 1 To 50
'Komponentenbilanz x=(x0-(Verh)*y)/(1-(Verh))
'fKBy = (x0 - (1 - Verh) * x) / Verh
fKBys = (fKBy(x * 1.01) - fKBy(x)) / (x * 0.01) 'hier erscheint Fehler bei fKBy
x = x - fKBy(x) / fKBys
Cells(6 + k, 11) = x
Cells(6 + k, 12) = fKBy(x)
If (Abs(fKBy(x)) Public Function fKBy(ByVal x) As Double
fKBy = (x0 - (1 - Verh) * x) / Verh
End Function

Beliebteste Forumthreads (12 Monate)

VBA Fehlermeldung Erwartet Datenfeld

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread