habe folgenden code!
Public Sub Länge_Change()
'deklarieren der max Bauflächenlänge
Dim Länge As Long
If Me.Länge.Value > 0 And Me.Länge.Value Else
Me.Länge.Value = ""
End If
End Sub
Private Sub Länge_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
MsgBox "Bitte vorgegebene Formate verwenden", vbExclamation
End Select
End Sub
Habe noch ne kleine Frage, wie kriege ich es hin nur Zahlen nicht wie bei mir von 0 bis irgendwas, sondern von 10000 bis irgendwas?
Sonnige Grüße aus hannover
matthias