Office: Betrag nach Auswahl in ComboBox falsch

hallo zusammen,

ich arbeite an einem excel-tool, welches in mehreren ländern (vertrieb) zum einsatz kommt.

nun kommt es bei einigen regionalen einstellungen von windows, z.b. standards und formate auf deutsch (schweiz) eingestellt, zu fehlern.

der fehler äußert sich bei mir folgendermaßen:

es gibt eine combobox in der ein euro-betrag ausgewählt werden kann, z.b. 1,45. diese combobox ist über einen listfillrange mit einem bereich auf einem anderen arbeitsblatt verbunden. dort stehen die euro-beträge wirklich als währungsbeträge drin (über zellenformat so formatiert). wählt der nutzer aus der combobox aus, wird dieser wert nicht über linkedcell ausgegeben sondern per vb-code alá
Range("Preis").Value = cbPreis.Value

nun der fehler (speziell zu der ländereinstellung deutsch (schweiz)):
bei auswahl eines geraden bertrags ohne nachkomma z.b. "SFr. 1.00" (so steht der wert auch in der combobox, da währung als format) passt alles. bei "SFr. 1.05" oder alle anderen werte mit nackommastellen gibt mir die combobox aber völlig falsche werde zurück. z.b. bei 1.15 gibt die combobox 39097.00 aus, sowohl als zurückgegebener wert in der verbundenen zelle als auch in der combobox als text an sich.

ich hoffe jemand von euch kann mir hier weiterhelfen und sagen wie die richtigen geldbeträge übergeben werden können.

beste grüße,
andrbe

 

Hallo!

Wer hat's erfunden? Die Schweizer!
Leider eben auch dieses bescheuerte Zahlenformat mit Dezimalpunkten statt -kommas.
Wegen dieses Punktes kommt Excel leider immer durcheinander und interpretiert diese Zahlen hin und wieder als Datumsangabe:
1.05 = 1.Mai
Daher die seltsamen Werte.
Eine Lösung habe ich jedoch im Moment leider nicht parat...

 

stimmt tatsächlich ..... "SFr. 1.15" wird von excel als 15.01.2007 interpretiert und als zahl ergibt das 39097

ich jemand kann mir helfen oder evtl. eine alternative lösung anbieten?

vielen dank

 

Hallo!

Bei mir funktioniert witzigerweise diese Abfrage (obwohl sie eigentlich nicht logisch ist):

Code:

Private Sub ComboBox1_Change()
If Application.International(xlDecimalSeparator) = "." Then
Range("C1") = WorksheetFunction.Substitute(ComboBox1.Value, ",", ".")
Else: Range("C1") = ComboBox1.Value
End If
End Sub