Hey... ich hab da ein kleines Problem.
ich lese einen wert aus exel ein...
Private Sub CommandButton1_Click()
TextBox1.Value = Sheets("Input Data").Range("B3").Value 'Volume
TextBox2.Value = Sheets("Input Data").Range("B13").Value 'Volumeflow
TextBox3.Value = Sheets("Input Data").Range("B5").Value 'Initial concentraition
TextBox4.Value = Sheets("Input Data").Range("B15").Value 'Delta t
TextBox5.Value = Sheets("Input Data").Range("B11").Value 'Raktion Konstant
End Sub
in eine Textbox und weise diese dann eine Variable zu
Private Sub TextBox1_Change()
If (Not IsNumeric(TextBox1.Value)) Then
TextBox1.Value = 0
End If
Vol = TextBox1
MsgBox Vol
End Sub
als bsp. 0,050 dann ist in der Textbox 0.05 aber in der variable kommt 5 an O.o'
Jemand eine idee warum ?
die Textbox ist so formatiert
Private Sub UserForm_Initialize()
TextBox1.Value = Format(TextBox1.Value, "#.###")
TextBox2.Text = Format(TextBox2.Text, "#.###")
TextBox3.Text = Format(TextBox3.Text, "#.###")
TextBox4.Text = Format(TextBox4.Text, "#.###")
TextBox5.Text = Format(TextBox5.Text, "#.####")
End Sub
|