Sub nurso()
Dim i As Long
Dim ZuVerteilen As Double
Dim Werte(2) As Double
Dim Summe As Double
Dim SchonVerteilt As Double
 
Werte(0) = 1200
Werte(1) = 200
Werte(2) = 1000
Summe = 2400
ZuVerteilen = 33.18
 
For i = 0 To 2
    Werte(i) = Round(ZuVerteilen * Werte(i) / Summe, 2)
    SchonVerteilt = SchonVerteilt + Werte(i)
Next
MsgBox ZuVerteilen
MsgBox SchonVerteilt
MsgBox ZuVerteilen - SchonVerteilt
End Sub