Eingabeüberwachung

Forumthread: Eingabeüberwachung
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Eingabeüberwachung

Eingabeüberwachung

31.01.2006 12:41:55

Peter

Hallo,
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

....

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Eingabeüberwachung

31.01.2006 12:56:42

Harald

AW: Eingabeüberwachung

31.01.2006 12:56:42

Harald

Hallo Peter,
sollte so laufen.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.Intersect(Target, Range("C9:C20")) _
Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
'z.B. aus 123 soll werden 12
Application.EnableEvents = False
If Right(Target.Value, 1) > 1 Then
Target.Value = Left(Target, Len(Target) - 1)
End If
Application.EnableEvents = True
End Sub

Gruss Harald

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!