Microsoft Excel

Herbers Excel/VBA-Archiv

Automatic last update

Betrifft: Automatic last update von: Corinne
Geschrieben am: 24.08.2004 16:26:41

Habe folgenden Code. Das Ziel ist, bei jeder Änderung innerhalb von A3:AB3 (resp A4:AB4,...) das aktuelle Datum in AC3 (AC4,...) zu haben. Wie kann man das lösen?
Gruss
Co

Set Target = Application.Intersect(Target, Range("A3:AB4"))
'If not within the range, the sub is being left
If Target Is Nothing Then Exit Sub
' Activates error handling
On Error GoTo ErrorHandler
'Turns of events to avoid re-update
Application.EnableEvents = False
' sets the zone where the date should be entered
Target.Offset(0, 25) = Now

  


Betrifft: AW: Automatic last update von: Harald E
Geschrieben am: 25.08.2004 08:53:26

Hallo Corinne,

zufällig auf den Thread gestossen und hab hier eine -auf die Schnelle- umgebaute Lösung von Hajo anzubieten.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim RaBereich As Range, RaZelle As Range
    Set RaBereich = Range("A3:AB3")
    Application.EnableEvents = False
    For Each RaZelle In Range(Target.Address)
        If Not Intersect(RaZelle, RaBereich) Is Nothing Then Range("AC3") = Date
    Next RaZelle
    Application.EnableEvents = True
    Set RaBereich = Nothing
End Sub


Gruß
Harald