ich möchte das in einer UF die Textboxeingabe nur in Format
1.0, 11.0, 12.1 usw
Soll heißen, dass Zahlen mit einem Punkt versehen sein müssen.
Danke!
Gruß
Sigi
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