Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige