Formatierung eines Eingabefeldes in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Formatierung eines Eingabefeldes in VBA
von: Bernd G.
Geschrieben am: 04.04.2005 13:31:13
Hallo liebe Excelisten,
ich habe in einer Form ein Textfeld und möchte, dass nur Uhrzeiten eingetragen werden können. z.B. 7:00 oder 23:59
Wo gibt es die Möglichkeit das Format zu definieren?
Mit freundlichen Grüßen
Bernd G.

Bild

Betrifft: AW: Formatierung eines Eingabefeldes in VBA
von: Ceyser Soze
Geschrieben am: 04.04.2005 14:06:23
Hi Bernd,
ich glaube man kann keine Formate für TextBoxen definieren. Aber man kann deren Wert prüfen.
zB beim Exit-Ereignis.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 With TextBox1
      If Not IsDate(.Text) Or _
         InStr(.Text, ":") = False Or _
         InStr(.Text, ".") Or _
         .TextLength <> 5 Then
         Cancel = True
      End If
   End With
End Sub

Gruß
CS
Bild

Betrifft: AW: Formatierung eines Eingabefeldes in VBA
von: Bernd G
Geschrieben am: 04.04.2005 15:16:13
Hallo CS,
vielen Dank, das ist auch sehr interessant.
Gruß
Bernd
Bild

Betrifft: AW: Formatierung eines Eingabefeldes in VBA
von: P@ulchen
Geschrieben am: 04.04.2005 14:10:47
Hallo Bernd,
Du kannst aber auch gleich Fehleingaben verhindern:


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 58   '58 = Doppelpunkt
Case Else: KeyAscii = 0
End Select
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1

Danach noch prüfen, ob nicht zB. 2 Doppelpunkte gesetzt wurden mit
If IsDate(TextBox1.Value)Then...

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: Formatierung eines Eingabefeldes in VBA
von: Bernd G
Geschrieben am: 04.04.2005 15:14:32
Hallo Paulchen,
vielen Dank, das hilft weiter...
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formatierung eines Eingabefeldes in VBA"