VBA Form: Komma in engl. OS als Punkt eingelesen

BITTE HELFT MIR, bin schon am Verzweifeln.
Habe in meinem deutschen Windows XP ein Excel Programm entwickelt, das mit Forms arbeitet. In diesen Forms habe ich zahlreiche Textboxen, die Werte aus dem Excel-Sheet lesen und damit Berechnungen durchführen. Soweit alles bestens.
Wenn ich das Programm nun auf englischen Betriebssystemen laufen lasse, wird beim Einlesen von Werten aus dem Excel-Sheet hinein in die Textboxen DAS KOMMA einfach AUTOMATISCH IN EINEN PUNKT umgewandelt. Rechnen tut Excel aber (scheinbar/offensichtlich) dennoch mit Komma, daher kommen falsche Werte Raus.
Warum konvertiert Excel die Zahlen in engl. Format, rechnet aber dann in Komma weiter ?
Beispiel:
=========
Konkret hab ich 2 Werte im Sheet (Speed, Distance). Diese lese ich jetzt in Textboxen der Form ein und will daraus die Duration berechnen und in eine 3te Textbox der Form schreiben. Wenn im Sheet z.B. die Werte 2,3 und 11,5 stehen, stehen in der Form dann die Werte 2.3 und 11.5. Bei der Berechnung ignoriert Excel jetzt den Punkt und rechnet mit 23 und 115 - argh!
Source:
=======
tbDistance.value = cells(row1, col1).value
tbSpeed.value = cells(row1, col2).value
tbDuration.value = tbDistance.value / tbSpeed.value
Ich hab auch schon probiert, das ganze in Double Werte umzuwandeln, aber es ändert nichts. Die einzige Lösung bisher war, die Zelleninhalte ALS TEXT EINZULESEN, aber das ist doch auch keine Lösung, da es dann wieder zu Problemen kommt, wenn in Excel-Sheet Punkt-Werte stehen :-(
Woran kann das liegen? Was soll ich machen?
Vielen Dank, Manfred.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub getValues(position) Dim speed As Double, distance As Double, duration As Double speed = CDbl(Cells(position, Range("speed").Column).value) distance = CDbl(Cells(position, Range("distance").Column).value) duration = CDbl(Cells(position, Range("duration").Column).value) tbSpeed.Value = Round(speed, 2) tbDistance.Value = Round(distance, 2) tbDuration.Value = Round(duration, 2) End Sub

Private Sub tbSpeed_Change() If ((changeSettings = False) Or tbSpeed.Text = "" Or tbDistance.Text = "") Then Exit Sub Dim distance As Double, speed As Double, duration As Double distance = CDbl(tbDistance.value) speed = CDbl(tbSpeed.value) If ((distance <= 0) Or (speed <= 0)) Then Exit Sub duration = CDbl(distance / speed) tbDuration.value = Round(duration, 2) End Sub

Private Sub tbDistance_Change() If ((changeSettings = False) Or tbSpeed.Text = "" Or tbDistance.Text = "") Then Exit Sub Dim distance As Double, speed As Double, duration As Double distance = CDbl(tbDistance.value) speed = CDbl(tbSpeed.value) If ((distance <= 0) Or (speed <= 0)) Then Exit Sub duration = CDbl(distance / speed) tbDuration.value = Round(duration, 2) End Sub

Aus Copyright Gründen hier nur die relevanten Fragmente:
'DIESE METHODE LIEST DIE DATEIEN AUS DEM SHEET IN DIE TEXTBOXEN DER FORM EIN


Private Sub getValues(position)
Dim speed As Double, distance As Double, duration As Double
speed = CDbl(Cells(position, Range("speed").Column).value)
distance = CDbl(Cells(position, Range("distance").Column).value)
duration = CDbl(Cells(position, Range("duration").Column).value)
tbSpeed.Value = Round(speed, 2)
tbDistance.Value = Round(distance, 2)
tbDuration.Value = Round(duration, 2)
End Sub

'FOLGENDE METHODEN BERECHNEN DEN DURATION-WERT NEU, WENN SPEED ODER DISTANCE TEXTBOX-WERTE GEÄNDERT WERDEN


Private Sub tbSpeed_Change()
If ((changeSettings = False) Or tbSpeed.Text = "" Or tbDistance.Text = "") Then Exit Sub
Dim distance As Double, speed As Double, duration As Double
distance = CDbl(tbDistance.value)
speed = CDbl(tbSpeed.value)
If ((distance <= 0) Or (speed <= 0)) Then Exit Sub
duration = CDbl(distance / speed)
tbDuration.value = Round(duration, 2)
End Sub


Private Sub tbDistance_Change()
If ((changeSettings = False) Or tbSpeed.Text = "" Or tbDistance.Text = "") Then Exit Sub
Dim distance As Double, speed As Double, duration As Double
distance = CDbl(tbDistance.value)
speed = CDbl(tbSpeed.value)
If ((distance <= 0) Or (speed <= 0)) Then Exit Sub
duration = CDbl(distance / speed)
tbDuration.value = Round(duration, 2)
End Sub

Wie gesagt: ich hab schon ziemlich alle Varianten durchprobiert. Der obige Code ist somit der letzte Versuch gewesen.
Danke für die Hilfe.

Beliebteste Forumthreads (12 Monate)

VBA Form: Komma in engl. OS als Punkt eingelesen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Form: Komma in engl. OS als Punkt eingelesen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread