Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not Left(Right(TextBox1, 2), 1) = "." Then
TextBox1 = Left(TextBox1, Len(TextBox1) - 1) & "." & Right(TextBox1, 1)
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Then
MsgBox "nur Zahlen erlaubt"
TextBox1 = ""
TextBox1.SetFocus
End If
If IsNumeric(TextBox1) And Not Left(Right(TextBox1, 2), 1) = "." Then
TextBox1 = Left(TextBox1, Len(TextBox1) - 1) & "." & Right(TextBox1, 1)
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) And Not Left(Right(TextBox1, 2), 1) = "." Then
MsgBox "hier Deine Meldung"
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) And InStr(1, TextBox1, ".") = 0 Then
MsgBox "hier Deine Meldung"
End If
End Sub