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

worksheet_change nur bei manuelle eingabe

worksheet_change nur bei manuelle eingabe
15.02.2005 08:08:02
Anette
Hallo,
wie schaffe ich es, dass das worksheet_change Ereignis nur bei manueller Eingabe im Tabellenblatt aber nicht bei Änderungen durch vba-Befehle ausgelöst wird?
Gruß Anette

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

Betreff
Datum
Anwender
Anzeige
AW: worksheet_change nur bei manuelle eingabe
15.02.2005 08:16:02
Harald
Moin Anette,
da Du keinen Hintergrund angegeben hast, hier nur ein Beispiel.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'   wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum eingetragen
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("D:D")
'ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 1) = Date
Next RaZelle
'ActiveSheet.Protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Gruß
Harald
Anzeige
Vielen Dank Harald! O.T.
Anette

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige