Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nur Zahlen in Textboxen zulassen

nur Zahlen in Textboxen zulassen
10.09.2003 14:13:22
Mathias
Hallo Forum,

ich bastle an einer Userform, in der viele Textboxen vorkommen, in die der Benutzer nur positive Zahlen eingeben soll.
Wie kann ich vermeiden, dass der Benutzer dort aus Versehen Buchstaben eingibt, oder negative Zahlen?

Danke für die Hilfe, Mathias

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur Zahlen in Textboxen zulassen
10.09.2003 14:19:25
Michael Scheffler
Hi,

eine eigene Klassendatei für die Textboxen schreiben. Google mal unter meinem Namen und site:www.herber.de. Da gab es mal einen Thread mit Anna.

Gruß

Micha
AW: nur Zahlen in Textboxen zulassen
10.09.2003 14:58:24
Mathias
Hi Micha,
Danke für die schnelle Antwort,

der Thread mit Anna, wenn es der richtige war, bringt mich nicht weiter.
Gibt es Möglichkeiten über Bedingungen zu sagen:
"Wenn Du statt Zahl einen Buchstaben oder eine negative Zahl eingegeben hast, dann nochmal neu" oder s.ä.?

Gruß Mathias
AW: nur Zahlen in Textboxen zulassen
10.09.2003 15:14:56
BerndE
Hi Micha,

bei einer einstelligen Zahl kannst Du dies relativ einfach überprüfen:

Zuerst die Länge des Strings prüfen. Danach kannst Du über den ASCII-Code feststellen, ob eine Zahl oder ein Buchstabe eingegeben wurde.

Gruß
Bernd

www.bernds.page.de.vu
Anzeige
Noch eine Lösung...
10.09.2003 15:25:14
BerndE
Es geht auch einfacher...

Versuch mal dies:

Dim Zahl As Integer

On Error Resume Next
Eingabe:
Zahl = InputBox("Zahl eingeben")
If Err <> 0 Then
MsgBox ("Keine Zahl eingegeben !!!")
Err = 0
GoTo Eingabe
End If

If Zahl < 0 Then
MsgBox ("Negative Zahl eingegeben !!!")
GoTo Eingabe:
End If

On Error GoTo 0

Wichtig ist die Dimensionierung von Zahl als Integer !!!

Gruß
Bernd

www.bernds.page.de.vu
AW: Noch eine Lösung...
10.09.2003 16:38:10
Mathias
Hallo Bernd,

es scheint zu klappen, Danke für die Hilfe.

Gruß Mathias
Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige