Gruppe
Ereignis
Bereich
Change
Thema
Bei falscher Eingabe alten Wert wiederherstellen
Problem
Ich möchte den Benutzer zwingen, nur numerische Werte in einen bestimmten Bereich einzugeben. Gibt er einen nichtnumerischen Wert ein, soll der alte Wert wiederhergestellt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
StandardModule: basMain
Public gvValue As Variant
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
If ActiveCell.Column = 256 Then
Range("A1").Select
Else
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, -1).Select
End If
End Sub
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not IsNumeric(Target.Value) Then
Target.Value = gvValue
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
gvValue = ActiveCell.Value
End Sub