Da es nicht voran geht, hier ein Vorschlag, wobei ich alle Zahlungseinheiten ab 50o Euro abwärts berücksichtige:
a = CDbl(InputBox("Wert"))
Cells(20, 12) = a
b = Array(500, 200, 100)
Cells(20, 11) = 0
ActiveSheet.Range(Cells(4, 11), Cells(20, 12)).NumberFormat = "General"
ActiveSheet.Range(Cells(4, 12), Cells(18, 12)).NumberFormat = "#,##0.00 $"
Cells(20, 12).NumberFormat = "#,##0.00 $"
For j = 1 To 5
For i = 1 To 3
Cells(3 * j + i, 12) = b(i - 1) / (10 ^ ((3 * j + i - 1) \ 3 - 1))
Cells(3 * j + i, 11) = Int(a / Cells(3 * j + i, 12) + 0.00002)
a = Int(100 * (a - Cells(3 * j + i, 11) * Cells(3 * j + i, 12) + 0.00002)) / 100
Cells(20, 11) = Cells(20, 11) + Cells(3 * j + i, 11)
Next
Next
Gruß
Holger