VBA: Wie Fehleingaben verhindern?

[Christopher Hübner]

Hallo,

wie kann ich in einem Textfeld, in das nur Zahlen eingegeben werden
sollen, verhindern das jemand doch Buchstaben eingibt. Hat das etwas
mit 'Error-Funktionen' zu tun? Wenn ja, welche müßte ich nehmen?

Die 'val-Funktion' ist nicht das was ich suche. Ich will nicht nur die
Zahlen aus einer Zeichenkette, ich will nur Zahlen zulassen.

Christopher
--
_____ _ _ _
/ ___/ /_/ /_/ / ICQ UIN: 5660339
/ /__ _ _ / PGP-Key available
/____/_/ /_/ /_/ mailto:c...@stud.mw.tu-muenchen.de

[Peter Haserodt]

Hi Christopher,
ich vermute daß Du ein Textfeld aus VBA meinst:
T steht im Beispiel für das Textfeld

Private Sub T_LostFocus()
If Not IsNumeric(T) Then
ant = MsgBox("falsche Eingabe") ' oder irgendwas anderes als Meldung

T = ""
End If
End Sub

Christopher Hübner schrieb in Nachricht
<35cb18eb...@news.lrz-muenchen.de>...

[Hans W. Herber]

Hallo Christopher,

handelt es sich um ein Textfeld in einem Tabellenblatt, einem Dialogblatt
(XL5/7) oder einer UserForm (XL8)?

Bei einer Userform wäre im Klassenmodul der Userform folgendes Makro zu
einzusetzen:

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) And _
TextBox1.Text <> "" Then
Beep
MsgBox "Nur Zahlen erlaubt!"
TextBox1.Text = ""
End If
End Sub

Bei Dialogblätter kann die Eigenschaft der Textbox auf Zahl gesetzt werden.

hans

########################################################
# Herber's Excel-Server - letztes Update: 06.08.98 #
# http://www.herber.de - Microsoft MVP - Excel #
# Neu bei den Demos97: TextBoxes berechnen #
# Excel-NG-Autoren: http://www.herber.de/dejanews.htm #
########################################################

Christopher Hübner <c...@stud.mw.tu-muenchen.de> wrote in message
35cb18eb...@news.lrz-muenchen.de...

[Peter Haserodt]

M.E. hängt sich diese Möglichkeit bei
der Eingabe eines Minus auf.

Gruß Peter

Hans W. Herber schrieb in Nachricht ...