Euro teken wordt automatisch dollar teken

[Meaurk]

Hallo!

Het ene probleem is net opgelost en het andere probleem meldt zich alweer.

Ik heb een macro geschreven waarmee het afdrukbereik wordt opgeslagen als PDF. In het afdrukbereik staan een aantal grafieken welke gekoppeld zijn aan tabellen die op hetzelfde blad staan. In de tabellen staan bedragen, met een normale "currency" opmaak met het euro teken. de grafieken laten in eerste instantie alles correct zien, in euro's. Echter als de macro wordt gestart dan veranderen de euro tekens in de grafieken naar dollar tekens, terwijl de euro tekens in de tabellen blijven staan.

Ik heb verschillende sites bezocht en kom steeds tot de conclusie dat dit alleen maar voor komt op MAC, echter zit ik op Windows 7.
Alvast bedankt voor de hulp!

 

[edmoor]

Zet in Windows in de Regionale instellingen het valutateken op het € teken.
Daar zal nu een $ staan.

 

[Meaurk]

Helaas, daar staat gewoon het euro teken.

 

[edmoor]

En hoe ziet je macro eruit? Plaats anders even je documentje.

 

[Meaurk]

De code is:

Sub TERCY()

    Sheets("Database").Visible = True
        Sheets("Database").Select
            ActiveSheet.Range("$A$1:$AM$597").AutoFilter Field:=25, Criteria1:=Array("-", "Afkeuren", "Gebruiken", "Herstellen", "Repareren", "="), Operator:=xlFilterValues
    Sheets("Database").Visible = False

    Sheets("TER-CY").Visible = True
        Sheets("TER-CY").Select
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Kengetallen " & Range("A4") & Range("E36") & " .pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    Sheets("TER-CY").Visible = False
        Sheets("Menu").Select

End Sub

Het voorbeeld bestandje volgt ASAP.

 

[edmoor]

Welke Office versie gebruik je?

 

[Meaurk]

Office 2013

Edit: Het vreemde is trouwens dat wanneer ik handmatig het blad exporteer als PDF, de euro tekens wel blijven staan.

 

[snb]

Probeer je aan te leren:

 with Sheets("Database")
    .Visible = True
    .Range("$A$1:$AM$597").AutoFilter 25, Array("-", "Afkeuren", "Gebruiken", "Herstellen", "Repareren", "="), Operator:=xlFilterValues
    .Visible = False
 end with

 

[Meaurk]

Ik heb het probleem gevonden. In Excel 2013 kun met een dubbelklik op de waarde welke continu veranderd een extra menu openen waar je de opmaak vast kunt stellen. Deze stond in eerste instantie gelinkt naar de betreffende tabel. Door deze een eigen opmaak te geven is het probleem opgelost.

Toch bedankt voor het meedenken!!