excel "punkt" erkennen und damit rechnen

[rotzi]

Hi,

habe ein weiteres problem, ich habe mir einen kleinen inch -> mm rechner gebaut der auch inch nach mm rechnet, jedoch bin ich nun auf das problem gestossen wenn ein englisches excel benutzt wird, funktioniert es nicht, da ja der punkt mit dem komma getauscht wird.

in meinem Fall, erkennt excel den . gar nicht und rechnen anstellt von 1.1 mit 11...

ich wollte das ausmerzen indem ich eine wenn formel benutze.. mein gedanke war:

Code:

var1 = TextBox1.Value

If var1 = "?chr(46)?" Then
TextBox2.Value = var1 * "25,4" / 10
Else
TextBox2.Value = var1 * "25,4"
End If
End Sub

ich dachte dass die ? den platzhalter spielen, chr(46) den punkt und das excel somit 1.1 erkennt und daraufhin 11x25,4/10 rechnet was ja mein ergebnis wäre.
wenn kein punkt oder ein komma drin ist, benutzt er natürlich else.

Worin liegt der denkfehler?

[atilla]

Hallo,

versuch mal so:

Code:

var1 = TextBox1.Value

If var1 = "?chr(Application.ThousandsSeparator)?" Then
  TextBox2.Value = var1 * 25.4 / 10
Else
  TextBox2.Value = var1 * 25.4
End If

Zahlen nicht Anführungszeichen setzen! In VBA wird dann grundsätzlich englische Schreibweise genutzt.

[rotzi]

nein geht leider nicht, bei "1.0" kommt immernoch 254 raus :(

[atilla]

Hallo,

ich habe meinen Beitrag korrigiert und ergänzt.

Ich sollte halt nicht alles so hinrotzen  :19:

Muss dieser Name wirklich sein?
Da mag man einen nicht richtig ernst nehmen.

[rotzi]

Hallo, immernoch nicht :s

meinst rotzi? :D das kommt von Rotzbube -> Frechdachs ^^

[atilla]

Wenn du ein englisches System hast, dann gib in die Textbox auch englisch ein

[rotzi]

nein ich habe deutsches system, möchte aber das dieser rechner auch auf einem englischem/amerikanischem system läuft ?!

[atilla]

Hallo

dann umrande var1 so: clng(var1)

Sonst musst Du die Eingabe in Textbox per Vba prüfen und regeln

[Hydronaut]

Hallo rotzi

Du weißt aber schon das Excel einen Inch-in-Millimeter-Rechner bereits eingebaut hat?

Code:

=UMWANDELN(A1;"in";"mm")

[rotzi]

nein das wusste ich nicht, ich wollte es in eine Userform einbringen. aber ich raff es nicht, das mit dem clng(Var) umranden geht auch nicht :(

sorry leute beschäftige mich erst seit 2 wochen mit vba ^^