Sub zaehlen()
a = CDbl(InputBox("Wert")) * 100
b = Array(500, 200, 100, 50, 20, 10, 5, 2, 1, 0.5, 0.2, 0.1, 0.05, 0.02, 0.01)
ActiveSheet.Range(Cells(4, 12), Cells(20, 12)).NumberFormat = "#,##0.00 $"
For i = 0 To UBound(b)
Cells(i + 4, 11) = a \ (b(i) * 100)
Cells(i + 4, 12) = b(i)
a = a Mod (b(i) * 100)
Next
Cells(20, 12).FormulaR1C1 = "=SUMPRODUCT(R[-16]C[-1]:R[-2]C[-1],R[-16]C:R[-2]C)"
Cells(20, 11).FormulaR1C1 = "=SUM(R[-16]C:R[-2]C)"
End Sub