Herbers Excel/VBA-Archiv

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

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

Textbox change-Ereignis Zahlen prüfen

• Textbox change-Ereignis Zahlen prüfen von Peter vom 30.09.2020 16:12:31
• AW: Textbox change-Ereignis Zahlen prüfen - von Daniel am 30.09.2020 16:36:50
  • AW: Textbox change-Ereignis Zahlen prüfen - von Peter am 30.09.2020 16:58:09
• AW: Textbox change-Ereignis Zahlen prüfen - von chris b. am 30.09.2020 16:49:31
  • AW: Textbox change-Ereignis Zahlen prüfen - von Peter am 30.09.2020 16:58:33

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