Durchsschnitt berechnen klappt nicht
20.09.2014 08:53:50
phelix
Hallo liebe User,
ich bin blutiger VBA-Anfänger und möchte meine ersten Kenntnisse anwenden, indem ich mir einen Notenrechner für's Studium baue. Ich habe die Textboxen soweit eingebaut und das Grundgerüst funktioniert auch, aber bei der Ausführung kommt immer das falsche Ergebnis heraus.
Private Sub cmdSchnitt1_Click()
Dim TUL1 As Single, Controlling As Single, Werkstoffe As Single, Analyse As Single, _
DataWarehouse As Single, PSN1 As Single, Schnitt1 As Single
'Eingabe
TUL1 = CSng(txtTULI.Text)
Controlling = CSng(txtControlling.Text)
Werkstoffe = CSng(txtWerkstoffe.Text)
Analyse = CSng(txtAnalyse.Text)
DataWarehouse = CSng(txtDataWarehouse.Text)
PSN1 = CSng(txtPSNI.Text)
'Verarbeitung
Schnitt1 = (TUL1 * 5 + Controlling * 5 + Werkstoffe * 5 + Analyse * 5 + DataWarehouse * 5 + _
_
PSN2 * 5) / 30
'Ausgabe
txtSchnitt1.Text = Format(Schnitt1, "#,##0.00")
End Sub
Wenn ich überall die Note 1,0 eingebe, erhalte ich als Ergebnis immer 0,83, was ja logischerweise falsch istt. Was mache ich falsch?
Gruß
Phelix