ich habe folgenden code:
Private Sub UserForm_Initialize()
OPENCOM schnittst1 & ":9600,N,7,1"
SENDSTRING "X" & Chr$(13) & Chr$(10)
DELAY 100
position = Space$(11) '11 Leerzeichen (VBA)
READSTRING position 'Auf 11 Zeichen warten
CLOSECOM
position = Right(position, Len(position) - InStrRev(position, " "))
x = Val(position)
MsgBox x
TextBox1.Value = x
TextBox2.Value = Cells(13 + i, 2)
End Sub
und folgendes Problem:
in der MsgBox hat x zB den Wert 1.2
in der TextBox steht dann aber 1,2
das seltsame ist, manchmal ist der Wert in der TextBox dann doch mit .
Hat jemand eine Idee wie ich vermeiden kann, das das Dezimaltrennzeichen
in der TextBox ein , ist?
Mit freundlichen Grüssen Frank