Doppelt gemoppelt und geht trotzdem nicht
14.10.2016 13:51:32
Michaela
nach der Eingabe eines Textes in einem Textfeld will zurück zur Eingabe.
Mit Cancel = True und Me.... verlässt Excel trotzdem das Feld.
Lieben Dank für eine Hilfe
Michaela
Private Sub txtKaufpr_AfterUpdate()
Dim preis1, preis2 As Double
' nummerisch prüfen
preis1 = txtKaufpr
If IsNumeric(txtKaufpr) = False Then
MsgBox ("Kaufpreis enthält keine Zahlen")
Cancel = True
Me.txtKaufpr.SetFocus
Else
MsgBox "Feld wurde mit Zahlen eingegeben"
End If
End Sub