Office: Dezimaltrennzeichen in VBA

Hallo zusammen,

ich habe hier ein altbekanntes Problem aber in diesem Forum noch nicht die Lösung für mich gefunden. Ich habe eine Tool, das von einer GUI Gleitkommazahlen einliest und die Werte weiterverarbeitet. Dabei hatte ich festgestellt, dass das Dezimaltrennzeichen in VBA von Anwender zu Anwender verschieden ist. Ich habe mir dann eine Funktion geschrieben, die feststellt ob VBA mit einem Komma oder mit einem Punkt als Dezimaltrennzeichen arbeitet.
Hier die relevanten Zeilen aus meiner Funktion:

Code:

Meine Funktion hat einen String z.B. "1,5" eingelesen und dann die Variable WP mit "1.5" und WK mit "1,5" besetzt.

Arbeitet VBA mit einem Punkt als Dezimaltrennzeichen, hat die Funktion CDbl den String "1.5" in die Gleitkommazahlen 1.5 umgewandelt und "1,5" in die Zahl 15. Meine Funktion hat in diesem Fall den String "1.5" zurück gegeben. Zugegeben, dass ist eine ziemlich primitive Methode, hat aber für ein paar Jahre funktioniert.
Leider ist es jetzt bei zwei Kollegen zu einem Laufzeitfehler gekommen, da die Funktion CDbl das String "1,5" aus unerklärlichen Gründen nichtmehr verarbeiten konnte.

Nun wollte ich das Dezimaltrennzeichen von VBA auf einen eleganteren und nicht fehleranfälligen Weg feststellen und bin dabei im Forum auf

Application.DecimalSeparator

gestoßen. Voller Vorfreude habe ich das in meinem Quellcode eingearbeitet. Ich habe dieser Variablen probehalber einmal ein Punkt und dann ein Komma zugewiesen und musste feststellen, dass sich das Dezimaltrennzeichen in der Exceltabelle geändert hat, aber nicht jenes, das VBA anwendet.

Meine Frage ist nun, ob es einen anderen Weg gibt, das Dezimaltrennzeichen zu ermitteln, das VBA anwendet??

:)

 

Hallo,

Willkommen im Club.
Ich sage meinen Exceldeutschen Kollegen, dass sie am besten den Dezimalpunkt, das Tausendertrennzeichen und das Listentrennzeichen auf Windowsebene einstellen.
Und dass sie mit ihrem Unternehmen gemeinsam zu Excelengländern werden sollten (ok, eigentlich Officeengländer), falls sie sich im internationalen Finanzumfeld bewegen.

Viel Spaß,
Bernd P

 

Hallo,

also ich meine, dass VBA Englisch spricht. Und da ist das Dezimaltrennzeichen der Punkt, unabhängig von irgendwelchen Ländereinstellungen.

Ich denke eher, du hast ein Problem mit den Länderspezifischen Trennzeichen.

Hilft dir das weiter?

PHP:

         Public Sub Test()
Dim Zahl As Variant, Zahl_1 As Double
Dim Zahl_3 As Double

'Eingabe mit Punkt oder Komma als Dezimalseparator
Zahl = InputBox("Bitte Zahl eingeben", Zahl)

'VBA spricht Englisch also
Punkt als Dezimalseparator
Zahl_1 = 1.9

If Application.DecimalSeparator = "," Then
Zahl = CDbl(Replace(Zahl, ".", ","))
MsgBox "Komma als Dezimalseparator"
MsgBox Zahl
ElseIf Application.DecimalSeparator = "." Then
Zahl = CDbl(Replace(Zahl, ".", ","))
MsgBox "Punkt als Dezimalseparator"
MsgBox Zahl
End If

Zahl_3 = Zahl + Zahl_1
MsgBox Zahl_3
End Sub


 

Hallo Werner,

wie Bernd geschrieben hat ist es tatsächlich so, dass VBA das Dezimaltrennzeichen (DTZ) verwendet, welches auf Windowsebene eingestellt ist. Es ware für mich nun hilfreich, wenn ich im Quellcode abfragen kann welches Dezimaltrennzeichen dort eingestellt ist. Application.DecimalSeparator bezieht sich nur auf das DTZ welches in der Exceltabelle angewendet wird. Das bringt mich nicht weiter.

Notfalls muss ich meine Kollegen auch bitten einheitlich den Punkt als DTZ zu verwenden.

Grüße
Michael

 

Hallo Michael,

so pauschal kannst du das glaube ich nicht sagen:

Meines Wissens nach gilt das nur für CDbl(). Val() und die Multiplikation mit --1 arbeiten meinem Kenntnisstand nach immer mit EN-us. Zudem kann Excel-VBA hervorragend auf beliebige Zahleneingaben in Excelzellen zugreifen. Wenn du als GUI also Excelzellen verwendest, wird es vielleicht einfacher.

Viele Grüße
derHöpp

 

Hallo Höpp,
vielen Dank für die Info! Ich möchte aus bestimmten Gründen weiter bei meiner GUI bleiben. Dennoch, dein Hiweis mit der Val-Funktion bringt mich auf eine weitere Idee, welche ich gleichmal ausprobieren möchte.
Grüße
Michael

 

Hallo Höpp,
die Funktion Val() erkennt tatsächlich nur den Punkt als Dezimaltrennzeichen. Meine Funktion "DTZ" reduziert sich dann nur noch auf eine Zeile:

Code:

Egal ob die Variable Wert eine Zeichenkette mit Punkt oder Komma enthält, die Funktion gibt immer ein Wert vom Typ Double zurück den VBA auch weiter verarbeiten kann. Die Kollegen haben weiterhin die Freiheit in die GUI Zahlen mit Komma oder mit Punkt einzugeben. Es ist auch gleichgültig, welches Dezimaltrennzeichen auf Betriebssystemebene vorgegeben ist. Genau so wollte ich es...

Vielen Dank nochmal!
Michael