TextBox in UserForm
07.04.2003 09:12:04
Árpád Cserép
Diese will ich so eine Eigenschaft geben, dass wenn ich eine Zeit
( 16:00 ) eingebe, diese durch shift : eintragen muss. Kann es so gemacht werden, dass dieser Doppelpunkt schon im TextBox anwesend is und ich nur die Zahlen vor und danach einführen muss.
Jetzt kann ich nur die Zeit betrennt durch ein Punkt (16.00) eintragen und dann rechnet es in der Celle nach hh:mm um.
Hier ist das Vorbild:
Private Sub CommandButton1_Click()
TextBox3.Text = Val(TextBox2.Text) - Val(TextBox1.Text)
ActiveCell.Select
ActiveCell.Offset(1, 0).NumberFormat = "[hh]:mm"
ActiveCell.Offset(1, 0).Value = TextBox3.Text / 24
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Anzeige