Gruppe
Ereignis
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.
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