Hallo,
Ik heb in Excel 2003 een cell ingesteld als currency. deze cell heeft zeg maar de waarde 1,1 gekregen via een berekening in VBA maar wordt dus weergegeven als 1,10 door de currency eigenschap.
De waarde in deze cell wil ik nu via een vba programmering inplakken in een word document. Dit gaat allemaal goed. alleen de waarde in het word document word weergegeven als 1,1 en niet als 1,10. Hoe ga ik dit voor elkaar krijgen.
Onderstaand de programering tot dusver. Het progagramma doet precies wat ik wil behalve de getalnotatie.
'Offertebijlage inplakken in Word
FileToOpen = Application _
.GetOpenFilename("Word Files (*.doc), *.doc")
If FileToOpen <> False Then
End If
Set y = CreateObject("Word.Application")
For I = 1 To 500
If Cells(I, 2) = "Grandtotaal" Then
Range(Cells(1, 1), Cells(I, 4)).Select
Selection.Copy
CC = (Cells(I, 4)) 'Dit is de waarde die in word moet komen te staan
End If
Next I
y.Visible = True
y.documents.Open Filename:=FileToOpen
y.activedocument.Bookmarks("Calculatie_Paste").Select
y.Selection.Paste
y.activedocument.Bookmarks("Calculatie_Bedrag").Select
y.Selection = (CC)'hier wordt de waarde in het word document geplakt
Application.CutCopyMode = False
Set y = Nothing
Ik heb in Excel 2003 een cell ingesteld als currency. deze cell heeft zeg maar de waarde 1,1 gekregen via een berekening in VBA maar wordt dus weergegeven als 1,10 door de currency eigenschap.
De waarde in deze cell wil ik nu via een vba programmering inplakken in een word document. Dit gaat allemaal goed. alleen de waarde in het word document word weergegeven als 1,1 en niet als 1,10. Hoe ga ik dit voor elkaar krijgen.
Onderstaand de programering tot dusver. Het progagramma doet precies wat ik wil behalve de getalnotatie.
'Offertebijlage inplakken in Word
FileToOpen = Application _
.GetOpenFilename("Word Files (*.doc), *.doc")
If FileToOpen <> False Then
End If
Set y = CreateObject("Word.Application")
For I = 1 To 500
If Cells(I, 2) = "Grandtotaal" Then
Range(Cells(1, 1), Cells(I, 4)).Select
Selection.Copy
CC = (Cells(I, 4)) 'Dit is de waarde die in word moet komen te staan
End If
Next I
y.Visible = True
y.documents.Open Filename:=FileToOpen
y.activedocument.Bookmarks("Calculatie_Paste").Select
y.Selection.Paste
y.activedocument.Bookmarks("Calculatie_Bedrag").Select
y.Selection = (CC)'hier wordt de waarde in het word document geplakt
Application.CutCopyMode = False
Set y = Nothing
