Private
Sub
CommandButton1_Click()
TextBox1.Value = Sheets(
"Input Data"
).Range(
"B3"
).Value
TextBox2.Value = Sheets(
"Input Data"
).Range(
"B13"
).Value
TextBox3.Value = Sheets(
"Input Data"
).Range(
"B5"
).Value
TextBox4.Value = Sheets(
"Input Data"
).Range(
"B15"
).Value
TextBox5.Value = Sheets(
"Input Data"
).Range(
"B11"
).Value
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