Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Textbox change-Ereignis Zahlen prüfen
30.09.2020 16:12:31
Peter
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox change-Ereignis Zahlen prüfen
30.09.2020 16:36:50
Daniel
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
AW: Textbox change-Ereignis Zahlen prüfen
30.09.2020 16:58:09
Peter
Hallo Daniel,
besten Dank für Deine Hilfe. Es funktioniert einwandfrei.
Wünsche noch einen schönen Tag.
Gruss
Peter
Anzeige
AW: Textbox change-Ereignis Zahlen prüfen
30.09.2020 16:49:31
chris
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  57 Then
KeyAscii = 0
Exit Sub
End If
End If
End Sub

AW: Textbox change-Ereignis Zahlen prüfen
30.09.2020 16:58:33
Peter
Hallo Chris,
besten Dank für Deine Hilfe. Es funktioniert einwandfrei.
Wünsche noch einen schönen Tag.
Gruss
Peter

179 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige