Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel 97 Stellen begrenzen in Eingabefeld einer Userform

4 views
Skip to first unread message

Lutz Hofmann

unread,
Mar 1, 2002, 9:43:40 AM3/1/02
to
Hallo Forengemeinde,

für die Profis unter Euch was zum Schmunzeln; für mich
Anfänger aber ein heftiges Problem:

Wie bekomme ich es hin, die Eingabe einer Zahl auf 2
Stellen zu begrenzen.

Irgendetwas muß es so in Richtung "Dim" geben...Seid bitte
so lieb und zeigt einem Amateur, wie man mit dieser Dim-
Anweisung umgeht; Daaaaankee

Lutz Hofmann

Claus Paltra

unread,
Mar 1, 2002, 9:54:35 AM3/1/02
to
Hi Lutz,

"Lutz Hofmann" <in...@synag.de> schrieb:
...


> Wie bekomme ich es hin, die Eingabe einer Zahl auf 2
> Stellen zu begrenzen.

...

UserForm, die textbox anwählen, Eigenschaftenfenster
der Box "MaxLength" auf 2.

Gruss+HAND,
Claus


Stefan Stoehr

unread,
Mar 1, 2002, 10:25:14 AM3/1/02
to
Lutz Hofmann schrieb in microsoft.public.de.excel:

> Wie bekomme ich es hin, die Eingabe einer Zahl auf 2
> Stellen zu begrenzen.
>
> Irgendetwas muß es so in Richtung "Dim" geben...Seid bitte
> so lieb und zeigt einem Amateur, wie man mit dieser Dim-
> Anweisung umgeht; Daaaaankee


Hi Lutz,

die Länge der Eingabe begrenzt man am einfachsten durch Setzen von
MaxLength im Eigenschaftenfenster des Eingabefeldes. Um nur Ziffern
zuzulassen, kann man z.b. das OnKeyPress-Ereignis des Eingabefeldes
auswerten. Es tritt immer dann ein, wenn eine Taste gedrückt wird während
das Eingabefeld den Focus besitzt.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

Die von Dir genannte Dim-Anweisung dient zur Deklaration von Variablen,
z.b. 'Dim MeineZahl as Integer' oder Dim MeinText as String.

cu
Stefan

Lutz Hofmann

unread,
Mar 1, 2002, 10:53:59 AM3/1/02
to

>-----Originalnachricht-----
>.
>
Daaaaaaaaaanke Junxs; Ihr habt bei mir einen gut!

...manchmal ist es aber dämlich einfach; vorausgesetzt,
man weiß, wie´s geht!

Ein schönes Wochenende !

Lutz

0 new messages