Userform und Formatdarstellung
11.02.2015 17:12:38
walter
Hallo zusammen.
ich habe mir eine Userform erstellt mit folgendem Makros
für die Textbox1:
Private Sub TextBox2_AfterUpdate()
If TextBox2.Value = "" Then
TextBox2.Value = "0000"
End If
ActiveSheet.Range("O2").Value = Format(TextBox2.Value, "0000")
TextBox2.Value = Format(ActiveSheet.Range("O2"), "0000")
TextBox2.SetFocus
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Die Zelle ist mit folgendem Format hinterlegt: Uhrzeit 13:30Diese Format benötige ich weil dahinter Formeln bestehen.
Wenn in der Zelle O2= 08:00 steht, wird in der Textbox1 dies
angezeigt: 0,33333333333
Ich habe mal auf "00:00" leider wird weiter 0,33333 angezeigt.
Wenn in der Zelle O2= 06:00 steht, wird in der Textbox1 0,25 angezeigt.
Ich möchte gern in der Textbox 4 Stellig die Zeit reinschreiben, wenn
möglich.
gruß
walter