Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textfeld bei nichtnumerischen Wert leeren

Textfeld bei nichtnumerischen Wert leeren
05.07.2004 06:56:35
Herbert
Guten Morgen Forum
Ich habe eine Userform mit mehreren Dropdown´s und einem Textfeld. Dort muß eine Zahl eingegeben werden. Wie kann ich das Textfeld leeren, wenn Buchstaben eingegeben werden.
Danke im Voraus

Private Sub nummer_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If nummer.Value <> IsNumeric(nummer.Value) Then
Beep
Exit Sub
End Sub

Gruß Herbert
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textfeld bei nichtnumerischen Wert leeren
05.07.2004 07:16:56
Uwe
Hallo Herbert,
ich würde es so machen:

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then TextBox1 = ""
End Sub

Gruß Uwe
AW: Textfeld bei nichtnumerischen Wert leeren
Herbert
Hallo Uwe
Danke für Deinen Tip, aber das ist es nicht. Ich will eine Eingabe erzwingen und habe es jetzt mit KeyUp versucht, das funktioniert, jetzt kann ich Zahlen eingeben, aber ich brauche auch die Möglichkeit, Nullen einzugeben, also ist wahrscheinlich mein Ansatz mit Numeric falsch.

Private Sub nummer_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If nummer.Value <> IsNumeric(nummer.Value) Then
Beep
nummer.Value = ""
Exit Sub
End If
End Sub

Herbert
Anzeige
AW: Textfeld bei nichtnumerischen Wert leeren
Josef
Hallo Herbert!
Probier's so.

Private Sub nummer_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
Dann können nur Zahlen eingegeben werden!
Gruß Sepp
End Sub

Danke Sepp, das war´s o.T.
Herbert
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige