VBA WORD Userform met simpele berekeningen

[hoemper]

Mijn vraag

Ik wil in Word een Userform maken om snel een offerte te maken voor een brandverzekering.
Reden dat dit in Word is : Offerte is reeds een bestaand template.
Ik werk via Bookmarks die ik via een Userform laat invullen.

Ik heb 2 vragen :

1) de getoonde bookmarks : KapitaalGebouw , PremieExcl, Taksen & PremieIncl zouden als Currency getoond moeten worden (bv Kapitaal gebouw = € 500.000,00).
2) Ik krijg de berekening niet in orde.


Wat ik al gevonden of geprobeerd heb
Code :

Visual Basic: filename

Private Sub cmdOK_Click()

'declareren

    Dim KapitaalGebouw As Range
    Dim Premievoet As Range
    Dim PremieExcl As Range
    Dim Taksen As Range
    Dim PremieIncl As Range
    
'Berekeningen en invullen van bookmarks


    Set KapitaalGebouw = ActiveDocument.Bookmarks("KapitaalGebouw").Range
    KapitaalGebouw.Text = Me.TxtKapitaalGebouw

    Set Premievoet = ActiveDocument.Bookmarks("Premievoet").Range
    Premievoet.Text = Me.TxtPremievoet

    Set PremieExcl = ActiveDocument.Bookmarks("PremieExcl").Range
    Set PremieIncl = ActiveDocument.Bookmarks("PremieIncl").Range
    Set Taksen = ActiveDocument.Bookmarks("Taksen").Range
    
    With Me
    PremieExcl = (KapitaalGebouw) / 1000) * Premievoet
    Taksen = (KapitaalGebouw / 100) * 15.75
    PremieIncl = PremieExcl + Taksen
    
    End With

    Me.Repaint
    UserForm1.Hide
    
    
End Sub

[Lustucru]

hoemper schreef op dinsdag 26 november 2019 @ 10:09:

1) de getoonde bookmarks : KapitaalGebouw , PremieExcl, Taksen & PremieIncl zouden als Currency getoond moeten worden (bv Kapitaal gebouw = € 500.000,00).

Gebruik format()

2) Ik krijg de berekening niet in orde.

Wat krijg je niet in orde?

Sowieso is het aan te bevelen om in je code je variabelen als currency of decimal te declaren, die uit je tekst te halen, je berekeningen uit te voeren en dan de waarden terug te schrijven.

Iets als:

code:

dim a as decimal, b as decimal, c as decimal
a=val(ActiveDocument.Bookmarks("KapitaalGebouw").Range.Text)
b=...
c=...

b=a*r
c=a*s

activedocument.Bookmarks("resultaat")=format(a,formatstring) 
etc...