Excel aufmöbeln mit VBA

Tausch a, b
TauschtNicht c, d
MsgBox "a = " & a & ", b = " & b & _
", c = " & c & ", d = " & d
End Sub
a = 2, b = 1, c = 3, d = 4
Tausch 10, 20
Exit Sub Exit Function
K0 p n Kn =
K0(1 + p/100) n
Function EndKapital(ByVal K_0 As Double, _
ByVal p As Double, ByVal n As Long) As Double
If (p < 0) Or (n < 0) Then Exit Function
EndKapital = WorksheetFunction.Round(K_0 * (1 + p/100) ^ n,2)
End Function
WorksheetFunction.Round