Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox change-Ereignis Zahlen prüfen

Betrifft: Textbox change-Ereignis Zahlen prüfen von: Peter
Geschrieben am: 30.09.2020 16:12:31

Hallo,
ich probiere seit längerem wie ich es erreiche, dass bei der Eingabe in eine Textbox folgendes Zenario geprüft wird:

1. die erste Ziffer in der Textbox muss immer "0" sein.
2. alle nachfolgenden Stellen müssen immer eine Ziffer sein.
Es dürfen keine Leerstellen, Buchstaben oder sonstige Zeichen vorhanden sein.

Könnt ihr mir bitte hierbei helfen.

Gruss
Peter

Betrifft: AW: Textbox change-Ereignis Zahlen prüfen
von: Daniel
Geschrieben am: 30.09.2020 16:36:50

Hi
wenn nur Ziffern eingegeben werden dürfen, dann mach das am besten über das KeyPress-Event:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.SelStart = 0 Then
    KeyAscii = Asc("0")
Else
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Else
            KeyAscii = 0
    End Select
End If
End Sub
beim ersten Tastedruck wird immer die 0 verwendet, egal was eingegeben wird, beim Rest wird alles außer Ziffern ausgeschlossen.

Gruß Daniel

Betrifft: AW: Textbox change-Ereignis Zahlen prüfen
von: Peter
Geschrieben am: 30.09.2020 16:58:09

Hallo Daniel,
besten Dank für Deine Hilfe. Es funktioniert einwandfrei.

Wünsche noch einen schönen Tag.

Gruss
Peter

Betrifft: AW: Textbox change-Ereignis Zahlen prüfen
von: chris b.
Geschrieben am: 30.09.2020 16:49:31

Hallo Peter,
hier meine Lösung für Dich.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.TextLength = 0 Then
If KeyAscii = 48 Then
Else

KeyAscii = 0
Exit Sub
End If
End If


If TextBox1.TextLength > 0 Then
If KeyAscii < 48 Or KeyAscii > 57 Then

KeyAscii = 0
Exit Sub
End If
End If

End Sub


Betrifft: AW: Textbox change-Ereignis Zahlen prüfen
von: Peter
Geschrieben am: 30.09.2020 16:58:33

Hallo Chris,
besten Dank für Deine Hilfe. Es funktioniert einwandfrei.

Wünsche noch einen schönen Tag.

Gruss
Peter