Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingabeüberwachung

Eingabeüberwachung
31.01.2006 11: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
Anzeige
AW: Eingabeüberwachung
31.01.2006 11: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige