Datum der letzten Aktualisierung eines Bereichs, der in einer einzelnen Zelle der Excel-Datei gespeichert ist

Question

Also ich habe dieses Excel-Arbeitsblatt, wo ich einen Bereich A2:A3 habe, ich möchte wissen, ob ich die letzte Zeit der Aktualisierung dieses spezifischen Bereichs in einer Zelle speichern kann, sagen wir in B1? Ich bin wirklich in der VBA-Welt vertraut. Ich bin für jede Hilfe dankbar :)

Answer 1

• Klicken Sie mit der rechten Maustaste auf Ihre Blattregisterkarte
• Code anzeigen
• Kopieren Sie den nachstehenden Code und fügen Sie ihn ein
• alt f11 zurück zu Excel

code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Set rng1 = Intersect([a2:a3], Target)
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
[b1] = Format(Now(), "dd-mm-yyyy hh:mm:ss")
Application.EnableEvents = True
End Sub

Answer 2

Dieses Makro wurde geschrieben, um Datum/Uhrzeit der letzten Änderung auf jedem A2:D43415 zu aktualisieren. Das zuletzt geänderte Datum wird auf die Spalte F angewendet.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range
Dim tColInt As Integer

tColInt = 6 'Column Index, Example: A=1, B=2, ...... ,Z=26

Set rInt = Intersect(Target, Range("A2:D43415")) 'Change cell range
 If Not rInt Is Nothing Then
    For Each rCell In rInt
        Set tCell = Cells(rCell.Cells.Row, tColInt)
        If IsEmpty(tCell) Or Not IsEmpty(tCell) Then
            tCell = Now
            tCell.NumberFormat = "dd/mm/yyyy h:mm:ss AM/PM" 'Custom Format
        End If
    Next
 End If
End Sub

Klicken Sie, um die Ausgabe zu sehen