nul voor komma in textbox

jacobusm · 3 jan 2012

Is het mogelijk om automatisch een nul te laten zetten in een textbox als je bijvoorbeeld .25 intikt dat er 0.25 komt te staan?

Alvast bedankt.

HSV · 3 jan 2012

Zo zou het kunnen.

Code:

Private Sub TextBox1_Change()
 If Left(TextBox1.Value, 1) = "." Then
  TextBox1.Value = "0" & TextBox1.Value
 End If
End Sub

Maar het kan ook tijdens het wegschrijven, met bv. een Commandbutton op je Userform.

Code:

Private Sub CommandButton1_Click()
 Sheets(1).Range("A1") = Val(TextBox1.Value)
 TextBox1 = ""
End Sub

jacobusm · 3 jan 2012

Ik heb het gelijk uitgeprobeerd en het werk perfect.

Bedankt, Super.

Wij waarderen jouw privacy