Gruppe
Ereignis
Bereich
Change
Thema
Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten
Problem
Wie kann ich den ursprünglichen Zellinhalt wiederherstellen, wenn in eine Zelle, in der nur Ziffern erlaubt sind, Zeichenfolgen eingegeben wurden?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle2
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