excel "punkt" erkennen und damit rechnen

[Fennek]

Hallo,

wie ich das so gerne mache: erst die Frage schlecht lesen und dann die Antwort schlecht getestet:

Code:

Sub T1()
'erkennt dt bzw eng Zahlen
Dim Tx As Variant
Dim x As Double
For Each Tx In Array("25,5", "25.5")
x = CDbl(Tx)
Debug.Print x
If InStr(x, Application.DecimalSeparator) > 0 Then
   Debug.Print "German"
Else
   Debug.Print "English"
End If
Next Tx
End Sub

Falls es auch auf eng/US-Systemen klappen sollte, bitte ein feedback.

mfg

[rotzi]

Holy moly, sry ich hab keine ahnun wie ich das  nu in meinen code und die textfelder integrieren soll

[snb]

Code:

Sub M_snb()
    c00 = "2,5"
    c01 = 3.23
    
    MsgBox FormatNumber(c00, 2) & vbLf & FormatNumber(c01, 2)
End Sub

[atilla]

Hallo,

dann so:

doch so:

Code:

  Dim var1
  var1 = TextBox1.Value
  TextBox2.Value = Replace(var1, Application.ThousandsSeparator, Application.DecimalSeparator) * 25.4

sonst zeig mal eine Beispieldatei mit dem zuletzt getesteten Code darin.

[rotzi]

der vba excel gott hat gesprochen ::D  ja man funktioniert einwandfrei !! super danke :)