In een macro krijg ik de fout melding : object vereist op regel "R = MsgBox("€ " & Format(Pmt(RentePerMaand..."
zou in verband zijn met FORMAT???
Sub MaandRenteLening()
Dim RentePerMaand As Double
Dim AantalMaanden As Integer
Dim BedragLening As Double
RentePerMaand = CDbl((Range("C3").FormulaR1C1) / 100) / 12
AantalMaanden = CInt(Range("C4").FormulaR1C1 * 12)
BedragLening = CDbl(Range("C5").FormulaR1C1)
R = MsgBox("€ " & Format(Pmt(RentePerMaand, AantalMaanden, BedragLening, 0, 0), "#.##0.00").vbOKOnly, "Uw maandbedrag:")
End Sub
Iemand een suggestie?
Pierre
zou in verband zijn met FORMAT???
Sub MaandRenteLening()
Dim RentePerMaand As Double
Dim AantalMaanden As Integer
Dim BedragLening As Double
RentePerMaand = CDbl((Range("C3").FormulaR1C1) / 100) / 12
AantalMaanden = CInt(Range("C4").FormulaR1C1 * 12)
BedragLening = CDbl(Range("C5").FormulaR1C1)
R = MsgBox("€ " & Format(Pmt(RentePerMaand, AantalMaanden, BedragLening, 0, 0), "#.##0.00").vbOKOnly, "Uw maandbedrag:")
End Sub
Iemand een suggestie?
Pierre
Bijlagen
Laatst bewerkt: