VB code

[nobody11]

hoi iedereen,

aangezien de vorige vraag op opgelost staat,en ik de thread niet onnodig wil compliceren, hier een gerichte vraag:

sub test()
dim h as variant
dim i as variant
dim ir as variant

(h, i en ir worden via een inputbox ingegeven, ik heb de code hiervoor even weggelaten voor de eenvoud)

range("A1").formula = "-PMT("&ir&"/12,"&h&"*12,"&i&")"

deze code geeft jammergenoeg een error.. iemand die weet waarom?

 

[Roncancio]

2 dingen

1. Je bent de = vergeten voor de formule.
2. je dient spaties te plaatsen bij de &-teken.
Dus:

Sub test()
Dim h As Variant
Dim i As Variant
Dim ir As Variant
'(h, i en ir worden via een inputbox ingegeven, ik heb de code hiervoor even weggelaten voor de eenvoud)

Range("A1").Formula = "=-PMT(" & ir & "/12," & h & "*12," & i & ")"
End Sub

Met vriendelijke groet,


Roncancio

 

[Demeter]

Te laat. had hem al getyped maar kreeg een telefoontje tussen door

Range("A1").Formula = "=-PMT(" & ir & "/12," & h & "*12," & i & ")"

spaties en een = teken

declareer je variabelen ook als integer ipv variant scheeld weer een klein beetje resources.

 

[nobody11]

Te laat. had hem al getyped maar kreeg een telefoontje tussen door

Range("A1").Formula = "=-PMT(" & ir & "/12," & h & "*12," & i & ")"

spaties en een = teken

declareer je variabelen ook als integer ipv variant scheeld weer een klein beetje resources.

bedankt, ik krijg echter een object defined error.. weten jullie mss waarom?

Sub herziening()
Dim n As integer
Dim notaris As integer
Dim boete As integer
Dim i As integer
Dim a As integer
Dim hr As integer
Dim r As integer
Dim ir As integer
Dim p As integer
Dim h As integer
Dim interest As integer


i = InputBox("Wat is het bedrag van je beginlening?")
p = InputBox("Op hoeveel jaar?")
ir = InputBox("Hoeveel bedroeg de initiële rente?")
notaris = InputBox("Percentage notariskosten bij nieuwe lening")
boete = InputBox("Aantal maanden boete", , 2)
a = InputBox("hoeveel periodes reeds afbetaald?")


Range("D1").Formula = "=-PMT(" & ir & "/12," & p & "*12," & i & ")"""

end sub()

 

[Roncancio]

Wéér 2 dingen.

1. Geen "" aan het eind van de formule.
2. Geen () bij End Sub.

Sub herziening()
Dim n As Integer
Dim notaris As Integer
Dim boete As Integer
Dim i As Integer
Dim a As Integer
Dim hr As Integer
Dim r As Integer
Dim ir As Integer
Dim p As Integer
Dim h As Integer
Dim interest As Integer


i = InputBox("Wat is het bedrag van je beginlening?")
p = InputBox("Op hoeveel jaar?")
ir = InputBox("Hoeveel bedroeg de initiële rente?")
notaris = InputBox("Percentage notariskosten bij nieuwe lening")
boete = InputBox("Aantal maanden boete", , 2)
a = InputBox("hoeveel periodes reeds afbetaald?")


Range("D1").Formula = "=-PMT(" & ir & "/12," & p & "*12," & i & ")"

End Sub

Met vriendelijke groet,


Roncancio