Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

WorkSheet Change: Komplizierte Überwachung

Forumthread: WorkSheet Change: Komplizierte Überwachung

WorkSheet Change: Komplizierte Überwachung
Holger,
Guten Morgen Forum,
Ich möchte im WorkSheet_Change Ereignis einige Überwachungen einbauen.
(Blattschutz kommt aufgrund von MultiUserEditing nicht infrage)
Leider so viele, dass ich nicht weiss, wie ich es umsetzen kann.
1 Änderungen dürfen nur im Bereich B15 bis N40 erfolgen
2 B9 bis B14: Hier sind fixe Werte vorgegeben, wenn Änderungen, würde ich den jeweiligen Wert einfach wieder reinschreiben.
3 C7 bis N14: Hier sind fixe Werte vorgegeben, wenn Änderungen, würde ich den jeweiligen Wert einfach wieder reinschreiben.
Wie kann man sowas umsetzen ohne total den Überblick zu verlieren?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: WorkSheet Change: Komplizierte Überwachung
18.01.2011 10:29:08
Rudi
Hallo,
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("B15:N40")) Is Nothing Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End Sub

Gruß
Rudi
Die Eleganz des Codes ...
18.01.2011 10:38:03
Holger,
Guten Morgen Rudi,
Ok, sehr elegant, kann ich so Eingaben zurücknehmen.
Also eigentlich habe ich so alles erschlagen.
Hm, wirklich extrem elegant, Danke Dir!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige