nur Eingabe von Zahlen akzeptieren
17.11.2005 18:38:28
Zahlen
ich möchte in einigen Zellen eines Worksheets nur die Eingabe von positiven Zahlen erlauben. Bei Eingabe von anderen Zeichen soll ein entsprechender Hinweis erscheinen. Und das ist auch der Punkt warum ich es nicht mit der herkömmlichen Zellformatierung lösen kann.
Ich habe bisher für dieses Problem folgende Lösung (aus der Recherche) verwendet:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 46, 48 To 57
Case Else
KeyAscii = 0
MsgBox "Bitte nur Zahlen und Punkte eingeben!", vbExclamation, "Datenformat beachten!"
End Select
End Sub
Da "ByVal KeyAscii As MSForms.ReturnInteger" nur in Formularen und Steuerelementen funktionert, kann ich diesen Ansatz für mein Problem (Worksheet_Change) nicht verwenden.
Hat jemand einen Tipp für mich?
Gruß
Matthias
Anzeige