guten abend zusammen,
ich habe gleich mehrere anliegen und hoffe mir kann weitergeholfen werden. ich bin relativ neu in vba und hoffe ich drücke mich nicht misverständlich aus.
zu meinem eigentlichen problem: in diesem beispiel möchte ich die durchschnittsnote für ein modul berechnen, welches aus drei klausuren besteht. gleichzeitig soll sich die ausgabezelle aber immer gleichzeitig ändern, sobald sich die zellen verändern, über die daten eingelesen werden. mein bisheriger quellcode gibt mir immer wieder fehler aus:
Private Sub Workbook_Open()
Dim summe As String
summe = (Range("pruefung1") * 5.5 + Range("pruefung2") * 5.5 + Range("pruefung3") * 4) / 15
Call richtig_runden(summe)
Range("modul") = richtig_runden
End Sub
Function richtig_runden(ByRef ungerundet As Double) As Double
richtig_runden = Format(ungerundet, "0.0")
End Function
herzlichen dank schonmal!
|