weiss jemand wie es möglich ist dass man nur zahlen in eine textbox schreiben kann.
gruß jürgen
ist ie Textbox in einer Userform
Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("."), Asc(",")
If InStr(TextBox1, ",") <> 0 Then
KeyAscii = 0
Else
KeyAscii = Asc(",")
End If
Case Asc(vbBack)
Case Asc("-")
If Len(TextBox1) = 0 Then
If InStr(TextBox1, "-") <> 0 Then
Else
KeyAscii = Asc("-")
End If
Else
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Georg
If WorksheetFunction.IsNumber(wert) Then
MsgBox("ist eine zahl")
else
MsgBox("ist keine zahl")
end if
trotzdem danke
jürgen
da übersiehst Du nur einen kleinen Unterschied, bei Dir können auch Buchstaben eingegeben wird und am Ende oder zwischendurch wird festgestellt das es keine zahl ist. Bei mir kannst Du überhaupt kein Buchstaben eingeben.
Gruß Georg