Format TextBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Format TextBox
von: Daniele
Geschrieben am: 05.06.2002 - 09:02:13

Hallo

Habe in Archiv ein Code von Matthias gefunden der nur eine numerische eingabe zulässt.
Dieser Code wäre für mich ideal weil er nicht generell, sonder nur bei KeyPress zutrifft.
Das Problem ist dass es nur eine einstellige Zahl zulässt. meine Zahlen sind jedoch 5 bis 8-Stellig

weiss jemand wie man dies umändern kann?


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9]" = False Then KeyAscii = 0
End Sub


Gruss, daniele


nach oben   nach unten

Re: Format TextBox
von: Sönke
Geschrieben am: 05.06.2002 - 09:09:47

hi dani,
versuch mal folgendes
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
select case KeyAscii
case 0 to 9
case else
KeyAscii = 0
end select
End Sub
es wird nur deine gedrückte taste überprüft !! nicht die stellenanzahl !!

gruss
sönke


nach oben   nach unten

Re: Format TextBox
von: Daniele
Geschrieben am: 05.06.2002 - 09:51:44

hi Sönke

es lässt sich so überhaupt nichts schreiben

daniele


nach oben   nach unten

Re: Format TextBox
von: Daniele
Geschrieben am: 05.06.2002 - 10:29:25

hi Sönke nochmals

habe eine gute lösung gefunden:

Private Sub TextBox4_AfterUpdate()
If Not IsNumeric(TextBox4) Then
MsgBox "Keine gültige Zahl! Nur Zahlen eingeben.", vbCritical, "Falsche Eingabe"
TextBox4.Value = ""
Exit Sub
End If
TextBox4 = Format(TextBox4, "0.0E+00")
End Sub


Danke trotzdem

gruss, daniele

nach oben   nach unten

Re: Format TextBox
von: Michael Scheffler
Geschrieben am: 05.06.2002 - 10:54:44

Hi Daniele,

sinnvollerweise schreibt man den Code ins Change-Ereignis, etwa so:


   With TxTGroup
    If Not IsNumeric(.Text) And _
        .Text <> "" Then
        Beep
        MsgBox "Please enter numeric values!"
        .SelStart = 0
        .SelLength = .TextLength
    End If
    If InStr(.Text, ",") Then .Text = Replace(.Text, ",", ".")
TxTGroup = Format(TxTGroup , "0.0E+00")

Gruß

Micha

nach oben   nach unten

Re: Format TextBox
von: Daniele
Geschrieben am: 05.06.2002 - 21:31:54

Hi Micha

noch eleganter, danke

gruss, daniele


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Format TextBox"