Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Formatierung eines Eingabefeldes in VBA"
Automatische Datumformatierung unterdrücken Zahlenformatierung mit Punkt nach der 1. Ziffer
Unterschiedliche Schriftformatierung in Kopf-/Fußzeile Jahreskalender und bedingte Formatierung
Bedingte Formatierung auslesen Über die bedingte Formatierung den Minimalwert markieren
Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern Bedingte Formatierung in Abhängigkeit eines Zellkommentars
Markierung von Formeln über bedingte Formatierung Zelleinträgen über die Formatierung Spaltennamen hinzufügen