Office: Textbox in Uhrzeit Format anzeigen lassen???

Hallo,

ich bin verzweifelt. Ich habe eine Userform mit einer Textbox. Diese ist keiner festen Zelle zugeordnet. in einer der Textboxen wird die Uhrzeit eingetragen in Form von "hh:mm".

Beim Speichern bleibt das auch bestehen und wird korrekt angezeigt.

Wenn ich die Userform aber wieder öffne, erscheint meine Uhrzeit als Dezimalzahl.

Ich dachte, ich kann das so einstellen, dass die Textbox auch beim öffnen, also bei "UserForm_Initialize()" die korrekte Formatierung beibehält.

Klicke ich in die Textbox und verlasse diese durch beispielsweise der Tab-Taste, wird die Zeit wieder korrekt angezeigt.

Das habe ich durch

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = Format(CDate(TextBox2.Text), "hh:mm")
End Sub

erreicht.

Nur leider beim Schließen und wieder Öffnen wird mir die Zeit IMMER wieder als Dezimalzahl angezeigt.

Was muss ich machen, damit das klappt??? *stupid

Vielen Dank im voraus!!! *Smilie

:)

 

Hi,

hast du schon mal versucht, im Activate-Ereignis des Userforms das Uhrzeitformat zuzuweisen? Eventuell ist das dafür besser als das Initialize-Ereignis geeignet.

 

Ja, das habe ich schon versucht, leider ohne Erfolg *frown.gif*

 

Wie trägst du die Uhrzeit in die TextBox ein? Und wie schließt du das UserForm? Lade doch mal deine Mappe hoch.

 

Also hiermit speichere ich den neuen Eintrag:

Private Sub CommandButton3_Click()
TextBox1 = Format(TextBox1, "DD.MM.YY")
TextBox2.Text = Format(CDate(TextBox2.Text), "hh:mm")
End Sub

das funktioniert auch.

das hier klappt auch ohne Probleme:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = Format(CDate(TextBox2.Text), "hh:mm")
End Sub

Aber das hier nicht mehr:

Private Sub UserForm_Activate()
TextBox1 = Format(TextBox1, "DD.MM.YY")
TextBox2 = Format(TextBox2, "hh:mm")
End Sub

auch so klappt es nicht:
Private Sub UserForm_Activate()
TextBox1 = Format(TextBox1, "DD.MM.YY")
TextBox2.Text = Format(CDate(TextBox2.Text), "hh:mm")
End Sub

Ich versteh das nicht...*rolleyes.gif*

 

Eigentlich ist mir auch wurscht, ob das ein "HH:MM" Format ist, da ich damit nicht weiterrechnen muss. Es kann natürlich auch als Text ausgegeben werden.

Es soll nur eben in dem Zeitformat angezeigt werden...aber eben überall gleich.

 

Bei mir wird in der TextBox keine Dezimalzahl angezeigt. Da du deine Mappe nicht hochlgeaden hast, kann ich dir leider nicht weiterhelfen.