excel euro conversie

[raymond]

Heeft iemand de beschikking over een macro welke nlg sheets omrekend naar euro?

Alvast bedankt.

Raymond

[Ber Visser]

"raymond" <rd...@office.casema.nl> schreef in bericht
news:#k3u4JYfBHA.1980@tkmsftngp05...

Heeft iemand de beschikking over een macro welke nlg sheets
omrekend naar euro?

Typ ergens in een lege cel de omrekeningskoers 2,20371
Klik met de rechter muisknop op die cel en kies Kopiëren
Selecteer alle bedragen die je om wilt rekenen
Klik met de rechter muisknop op de selectie en kies Plakken
Speciaal
In het dialoogvenster klik je op Delen
Klik op OK en alles is omgerekend.

--
Met vriendelijke groeten,
Ber Visser

[luc heyndrickx]

Ja, ik heb een macro die elk getal in een geselecteerd gebied omrekent naar
Euro. Maar het is wel van Belgische Frank. Deze macro veranderen zodat hij
voor nlg werkt is niet moeilijk. Hou er wel rekening mee dat elk getal
wordt omgerekend. Als je dus in cel "A1" kilo's staan hebt, en in "A2"
guldens, dan rekent hij beide bedragen om, net alsof de kilo's guldens zijn.
Je moet dus enkel de valuta selecteren, en de macro uitvoeren.

Public Sub BfEuro()

Dim x As Range

For Each x In Selection

x.Value = Round(x.Value / 40.3399, 2)
Selection.NumberFormat = "#,##0.00 [$?-1]"

Next

End Sub

P.s. 1 Euro = 40,3399 Bef. Deze macro rond de uitkomst af op 2 decimalen.

Ik hoop dat ik je hiermee geholpen heb ?

Luc

"raymond" <rd...@office.casema.nl> schreef in bericht
news:#k3u4JYfBHA.1980@tkmsftngp05...

[Tegno]

vergeet bijde opties
en kijk eens op http://www.excelspecialist.nl/

wij hebben dit gekocht en werkt perfect

je kan ook weer terug schakelen
alle valluta van europa zit erin verwerkt
je kan een test downloaden die met waarde 2.0 werkt ipv 2.20371
de geregiseerde werkt echt perfect
"luc heyndrickx" <lhey...@be.packardbell.org> schreef in bericht
news:3c0e42a6$0$12219$4d4e...@news.be.uu.net...