Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

negative zahlen textbox

negative zahlen textbox
08.04.2008 14:47:40
Gabi
hallo leute
mit folgendem sub unterbinde ich das der anwender etwas anderes außer zahlen in die textbox einer userform eintragen kann

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 44
Case Else:       KeyAscii = 0
End Select
End Sub


leider sind somit auch keine negativen zahlen möglich die aber auch mit aufgenommen werden müssen. weiß jemand rat?
by gabi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Case 48 To 57, 44, 45 (owT)
08.04.2008 14:57:27
Renee

AW: negative zahlen textbox
08.04.2008 15:02:00
Tino
Hallo,
war zuerst im falschen Beitrag, hier eine andere Variante.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890-," & Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub


AW: negative zahlen textbox
08.04.2008 15:43:00
Gabi
vielen dank aber jetzt hab ich doch noch ne einfachere Methode entdeckt
...ich ergänze einfach ne 45 die bei Ascii für - steht
manchmal is es wirklich verhext!
by gabi
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige