Textfeld und Combox in UserForm numerisch
21.07.2003 10:47:31
Gruhn Nico
wie kann ich erreichen, dass Textfelder und Comboboxen in einer Userform nur numerische Eingaben anzeigen? Nur nummerisch ist nicht ganz korreckt, ich möchte einen nummerischen Wert aus einer Zelle anzeigen lassen und habe das Problem, dass nicht "." sondern "," angezeigt wird und somit ein Text in die Zelle übertragen wird.
Beispiel:
Unterschiedliche Zellen sollen nach Ihrem Wert abgefragt werden und jeweils in einer zugehörigen Textbox oder Combobox angezeigt werden. Bei numerischen Werte soll jetzt nicht als 100,1 sondern als 100.1 angezeigt werden. Wenn Text in einer Zelle steht dann soll dieser angezeigt werden.
So habe ich die Abfrage beschrieben:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = True
cbAnlage.Text = [A1]
cbBM.Text = [F1]
cbSn.Text = [D27]
cbEOS.Text = [B46]
cbEUS.Text = [B47]
cbIWOSP.Text = [D20]
cbIWOSS.Text = [D21]
cbIWUSP.Text = [G20]
cbIWUSS.Text = [G21]
cbfOS.Text = [A40]
cbfUS1.Text = [A41]
cbfUS2.Text = [A42]
cbfUS3.Text = [A43]
cbfUS4.Text = [A44]
cbna.Text = [H161]
cbEM.Text = [C159]
cbtel.Text = [C157]
cbrtyos.Text = [C67]
cbrtyus1.Text = [C68]
cbrtyus2.Text = [C69]
cbrtyus3.Text = [C70]
cbrtyus4.Text = [C71]
txtUn01OS.Value = [D14]
txtUn10OS.Text = [D15]
txtUn19OS.Text = [D16]
txtUn10US.Text = [G15]
txtuk01.Text = [D30]
txtuk10.Text = [D31]
End Sub
Vielen Dank im voraus
Nico