Eingabeüberwachung
31.01.2006 11:41:55
Peter
Ich möchte in einer Zelle die Eingabe überwachen.
Geht das?
-siehe Bsp
Peter
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.Intersect(Target, Range("C9:C20")) _
Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
'z.B. aus 123 soll werden 12
If Right(Target.Value, 1) > 1 Then
Target.Value = Len(Target.Value) - 1
End If
End Sub
....