wie kann ich mittels eines Ereignis den Eintrag in einer Zelle überprüfen?
Ich möchte den Inhalt der Zelle bei nichtnumerichen Zeichen nicht nur zurücksetzen
sondern es sollen alle Zeichen (auch Leerzeichen die nicht nur am Anfang o. Ende stehen),
entfernt werden .
Die Möglichkeit die Sache über "Gültigkeit" zu regeln möchte ich nicht.
Folgende Sub habe ich gefunden.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then
Application.Undo
Beep
MsgBox "Nur Zahlen erlaubt!"
End If
End Sub
Vielen Dank für die Hilfe
Peter