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

textBox1 prüfen ob numerische eingabe

textBox1 prüfen ob numerische eingabe
06.11.2006 11:53:05
achim
Hallo Excel freunde
wer kann mal schauen
das makro soll prüfen aber schon bei der eingabe ob das was ich eingebe auch numerisch ist. leider tut es nicht...

Private Sub TextBox1__Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox1.Text) Then
MsgBox "Bitte numerischen Wert eingeben!"
Cancel = True
End If
End Sub

gruss
achim h.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: textBox1 prüfen ob numerische eingabe
06.11.2006 13:28:29
Mac4
Hallo Achim,
da kannst Du das KeyPress-Ereignis der Textbox nutzen:

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Prüft jedes eingegebe Zeichen
Select Case KeyAscii
Case 48 To 57
Case Else
MsgBox "Es sind nur numerische Eingaben möglich!", vbCritical
KeyAscii = 0
End Select
End Sub

Marc
AW:danke
06.11.2006 13:32:54
achim
hallo marc
klappt nun so wie ich möchte
danke achim h.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige