worksheet_change nur bei manuelle eingabe

Bild

Betrifft: worksheet_change nur bei manuelle eingabe von: Anette
Geschrieben am: 15.02.2005 08:08:02

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

Bild


Betrifft: AW: worksheet_change nur bei manuelle eingabe von: Harald E
Geschrieben am: 15.02.2005 08:16:02

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


Bild


Betrifft: Vielen Dank Harald! O.T. von: Anette
Geschrieben am: 15.02.2005 09:06:38




 Bild

Beiträge aus den Excel-Beispielen zum Thema "worksheet_change nur bei manuelle eingabe"