Getal notatie klopt niet

[loek010]

Beste Hulpverleners,

Ik heb een probleem met de getalnotatie bij het opslaan naar het werkblad
probleem is indien het factuurbedrag b.v € 10.95 is hij het opslaat als 10.00
dus hij laat de waarde van de 2 decimalen op .00 staan.
Zit het probleem in de code ik heb al diversen varianten geprobeerd
maar komt er niet uit graag uw hulp , zie bijgevoegde code

M.v.g Loek010

Public Sub BoekFactuur()
Dim lastrij As Long, Factuurnummer$, Debiteurnummer$, Factuurbedrag As Long
Debiteurnummer = [D8].Value
Factuurnummer = [D11].Value
Factuurdatum = [D10].Value
Factuurbedrag = [D27].Value
With Sheets("Factuuroverzicht")
 lastrij = .[A100].End(xlUp).Row
.Cells(lastrij + 1, "A").Value = Factuurnummer
.Cells(lastrij + 1, "C").Value = Debiteurnummer
.Cells(lastrij + 1, "D").Value = Format(Factuurdatum, "dd-mm-yyyy")
.Cells(lastrij + 1, "E").Value = Format(Factuurbedrag, "#00.00") <------ Probleem ?
    End With
   MsgBox ("Factuur geboekt en opgeslagen !")
   End Sub

 

[VenA]

Je hebt het factuurbedrag als Long gedeclareerd. Dit moet Double zijn.

 

[loek010]

Beste VenA,

Dat was inderdaad het probleem, probleem opgelost.

Hartelijk bedankt.

Groet Loek010