Korting uitrekenen in userform

[kirs]

Hallo,

Al enige tijd ben ik aan het uitproberen/prutsen met excel en VBA. Wat VBA kom ik net kijken dus ik heb mezelf een aardige uitdaging gesteld.

Ik heb een userform gemaakt waarin de gegevens van een huurder ingevoerd kunnen worden, mijn bedoeling is dat dit uiteindelijk in een lijst wordt weggeschreven (maar zover ben ik nu nog niet)

Voor nu ben ik op zoek naar een juiste code/manier om een eventuele procentuele korting op de huurprijs te kunnen berekenen in ditzelfde userform.

Zoeken op google en dit forum heeft wel e.e.a. duidelijk gemaakt, maar ik kan het nog niet helemaal vertalen naar mijn eigen situatie.
Met onderstaande code krijg ik bij het uitvoeren de foutmelding "Compileerfout: Ongeldige kwalificatie"

Wat gaat er mis? En hoe kan ik dit oplossen?

De code die ik heb gemaakt/geknipt/geplakt is als volgt:

Private Sub cmdHuurprijsklant_Click()

' berekend huurprijs voor klant

Dim txtHuurprijsklant As Single
Dim txtHuurprijs As Single
Dim txtKorting As Single

txtHuurprijsklant.Value = txtHuurprijs.Value - (txtHuurprijs.Value * (txtKorting.Value / 100))

End Sub

Wat ik wil:
In het userform alle gegevens van de huurder invullen
d.m.v. het keuzevak een unit nummer kiezen, waarna de standaard huurprijs automatisch wordt weergegeven (txtHuurprijs)
vervolgens een eventuele procentuele korting, bijvoorbeeld 10% aangeven in txtKorting
en dat daarna in txtHuurprijsklant de huurprijs voor de klant wordt weergegeven (al dan niet met behulp van een "bereken huurprijs klant" knop)

Bekijk bijlage Opslag - voorbeeld.xlsm

 

[edmoor]

Je hebt variabelen in je VBA code met dezelfde naam als de tekstvelden in het formulier. Dat mag dus niet.

 

[Cobbe]

Je zou deze kunnen gebruiken:

Private Sub txtKorting_Change()
txtHuurprijsklant = Val(txtHuurprijs) - (Val(txtHuurprijs) * (Val(txtKorting) / 100))
End Sub

 

[kirs]

Gelukt!

Top Bedankt!
De aangedragen code werkt :thumb:

Nog een kleine aanvullende vraag.
Kan ik de gegevens ook laten zien als euro's en procenten?

als er bijvoorbeeld 10 wordt ingevuld in txtKorting, dit wordt weergegeven als 10%
en voor txtHuurprijs en txtHuurprijsklant de bedragen worden getoond als respectievelijk € 124,00 en € 111,60

alvast bedankt!

 

[Cobbe]

Test deze opmaken eens:

Private Sub txtAanvanghuur_AfterUpdate()
  txtAanvanghuur = Format(txtAanvanghuur, "€ 00.00")
End Sub


Private Sub txtHuurprijs_AfterUpdate()
  txtHuurprijs = Format(txtHuurprijs, "€ 00.00")
End Sub


Private Sub txtKorting_AfterUpdate()
  txtHuurprijsklant = Format(txtHuurprijs - txtHuurprijs * (Val(txtKorting) / 100), "€ 00.00")
End Sub

 

[kirs]

Bedankt!

Alles intussen naar wens wat format en berekening betreft :d