Getalnotaties en kopieren

[jarsky]

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
vast bedankt voor alle hulp.

 

[snb]

Pas de opmaak in Word aan.

 

[henkhoogerbrug]

of beïnvloed de opmaak van de variabele CC
Als je alleen het bedrag wilt kun je het euroteken weghalen.
CCvalue is dan de waarde die je in word moet plakken.

Dim CCvalue As String
CCvalue = Format(CC, "€ ##,##0.00")

 

[jarsky]

of beïnvloed de opmaak van de variabele CC
Als je alleen het bedrag wilt kun je het euroteken weghalen.
CCvalue is dan de waarde die je in word moet plakken.

Dim CCvalue As String
CCvalue = Format(CC, "€ ##,##0.00")

Bedankt werkt uitstekend. Had zelf ook al zoiets maar vergat de 0.00 er achter te zetten.
:thumb: