Office: Uhrzeit ohne Doppelpunkt

Guten Morgen
Ich hab in einer Userform ein paar Textfelder, in welchen ich die Uhrzeiten ohne Doppelpunkt eintragen kann (Klappt auch ganz gut, Danke an dem unbekannten Codeschreiber)
Jetzt zu meinen Problemen
1.) Wenn in einer Textbox schon eine Uhrzeit steht und ich diese überschreiben
will, muss ich erst das Feld löschen und dann kann ich was reinschreiben
(das nervt). Gibt es nicht einen Code wo ich mir das manuelle Löschen
erspare?
2.) Ist es möglich, das ich auch ein X reinschreiben kann? D.h. entweder
Uhrzeit, X oder leer.

Danke für eure Hilfe
LG
Michael

:)

 

Moin,


du kannst den Text vorselektieren. Wenn du dann reinschreibst wird er ersetzt.

Das mit dem X oder leer geht auch?

Wenn du die Tab-Taste drückst landest du im nächsten Feld und der Text ist bereits selektiert.
Wenn du dann reinschreibst mußt du nichts löschen.

das wäre der Code für das Vorselektieren des ersten Feldes. Kannst du ins initialize schreiben.
With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With

und der für das kleine x
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii 120 Then uhrzeit TextBox1, KeyAscii
End Sub

das Feld leer lassen geht schon.

 

Danke
Das mit dem X geht super. Danke nochmal
Nur mit der Sache dass ich das vorher löschen muss, klappt noch nicht wirklich
Ich kann zwar in die Textbox reinspringen (mit Enter usw.) nur kann ich das erst überschreiben, wenn ich die Eingabe gelöscht habe. Das bezieht sich nur auf Textbox 1 oder 2 (Das sind die Textboxen mit dem Doppelpunkt

LG
Michael

 

na dann ersetze folgende Codeblöcke.
die anderen If KeyAscii 120 Then nimmst du weg

Code:

 

Danke nochmal

ich hoffe ich hab das Richtig gemacht. Zumindest kommt keine Fehlermeldung (Bis jetzt)

PHP:

         Private Sub uhrzeit(ByRef theBox As MSForms.TextBox, ByVal KeyAscii As MSForms.ReturnInteger)
'Eingabebeschränkung Textbox_Uhrzeit mit autom. Doppelpunkt
'Format hh:mm
Select Case Len(theBox)
Case 0
Select Case KeyAscii
Case 48 To 50
Case Else
If KeyAscii <> 120 Then KeyAscii = 0
End Select
Case 1
If Left(theBox, 1) = 2 Then
Select Case KeyAscii
Case 48 To 51
Case Else
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else
If KeyAscii <> 120 Then KeyAscii = 0
End Select
End If
Case 2
Select Case KeyAscii
Case 48 To 53, 58
If KeyAscii <> 58 Then theBox = theBox & ":"
KeyAscii = 0
End Select
Case 3
If Right(theBox, 1) = ":" Then
Select Case KeyAscii
Case 48 To 53
Case Else
If KeyAscii <> 120 Then KeyAscii = 0
End Select
End If
Case 4
Select Case KeyAscii
Case 48 To 57
Case Else
If KeyAscii <> 120 Then KeyAscii = 0
End Select
Case Else
If KeyAscii <> 120 Then
theBox = ""
KeyAscii = 0
End If
End Select
End Sub


 

was bringst du nicht hin?

die paar Zeilen austauschen ?

 

Habs geschafft. Danke. Du bist der Beste

 

naja , zuviel des Guten.

du solltest nur im Case 0 und im Case Else das einfügen.

im Case 0 heißt wenn die Textbox leer ist.
und Case Else wenn die Uhrzeit am Anfang drin steht.

Dazwischen könntest du mit dem x deine Zeit versauen.

 

mache ich gleich