Office: (Office 2019) Datum der letzten Aktualisierung des Zellenwertes in Kommentar anzeigen

Hallo Ihr alle,

gibt es eine Möglichkeit das Datum der letzten Aktualisierung eines Zellenwertes im Kommentar anzuzeigen und bis zur nächsten Änderung des Zellenwertes zu speichern.

Mit der Funktion =TakeComment schaffe ich es zwar ein Datum in dem Kommentar angezeigt zu bekommen jedoch fehlt mir das Wissen wie sich dieses Datum dann im Kommentar speichern lässt.

Meine Funktion =TakeComment(D3) übernimmt derzeit aus der Zelle D3 das aktuelle Datum =HEUTE() und schreibt es in den Kommentar.

Leider oder eben richtigerweise aktualisiert sich das Datum in D3 beim öffnen der Tabelle und schon steht es im Kommentar der entsprechenden Zelle.

Geht das überhaupt, ist der Ansatz wenigstens schonmal einwenig richtig oder gehe ich da komplett falsch ran.

Über Hilfe würde ich mich freuen.

Gruß

Ingolf

 

Hallo Ingolf,

ActiveCell.AddComment
ActiveCell.Comment.Text Text:=".:""12.11.2022"

 

oder mit Fehlerbehandlung.

Code:

Option Explicit

Sub Datum()
    If ActiveCell.Comment Is Nothing Then
        ActiveCell.AddComment
    End If
    ActiveCell.Comment.Text Text:=".:date"
End Sub

Gruß Hajo

 

Moin!

Diese Funktion ist mir unbekannt!
(wahrscheinlich handelt es sich um eine UDF)

Dein Code schreibt .:Date in den Kommentar.
Keinesfalls jedoch das aktuelle Datum!

Da das Ganze ereignisbezogen auf Änderung eines Zellwerts geschehen soll ein paar Nachfragen:
• was soll passieren, wenn mehrere Zellen gleichzeitig geändert werden?
• wie lautet der Überwachungsbereich?

Mal ohne diese Infos:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .CountLarge = 1 Then
    If .Comment Is Nothing Then .AddComment
    .Comment.Text CStr(Now)
  End If
End With
End Sub

Statt Now geht natürlich auch Date

Gruß Ralf

 

Hi Ingolf,

mit folgendem Code wird im Bereich A5:A20 das Datum jeder Änderung des Zellinhaltes in ihrem Kommentar festgehalten - also nicht nur eine einmalige Änderung sondern auch eine mehrfache:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range
    If Not Intersect(Target, Range("A5:A20")) Is Nothing Then
        For Each rngZelle In Selection
            If Not Intersect(rngZelle, Range("A5:A20")) Is Nothing Then
                If rngZelle.Comment Is Nothing Then
                    rngZelle.AddComment CStr(Date)
                Else
                    rngZelle.Comment.Text Text:=rngZelle.Comment.Text & "; " & Date
                End If
            End If
        Next rngZelle
    End If
End Sub

Den Bereich musst du natürlich anpassen. Und falls du nicht nur das Datum sondern Datum und Uhrzeit festhalten willst, dann musst du Date an beiden Stellen durch Now ersetzen.

---

 

Guten Abend,

danke für die Hilfe.

Beverly, den Code habe ich an die entsprechenden Zellen angepasst und beide Date durch Not ersetzt. Das funktioniert schonmal fast wie gewünscht. Leider schreibt er das Datum mit Uhrzeit in den Kommentar in der Zelle die unter der Zelle liegt in der ich den Wert ändere.

Die Tabelle ist so aufgebaut das mehrmal am Tag bzw. mehrmals Monatlich die verbrauchte Wärmemenge eines Wärmemengenzählers in immer die gleiche Zelle über einen ganzen Monat übernommen werden muss. Das heißt, es ist über einen ganzen Monat eine ständige Zahlenfortschreibung in nur einer Zelle. Damit es eine Übersicht über die Ableseabstände gibt soll sich das in der Zelle im Kommentar darstellen in der der Zahlenwert geändert wurde.

Spalte A Spalte B Spalte C
Apr 22 5.122 167 kwh
Mai 22 5.232 110 kwh
Jun 22 5.279 47 kwh
Jul 22 5.311 32 kwh
Aug 22 5.339 28 kwh
Sep 22 5.391 52 kwh
Okt 22 5.717 326 kwh
Nov 22 5.985 268 kwh
Dez.22

Wenn ich aktuell den Zahlenwert in Spalte B für Nov. 22 ändere legt er den Kommentar in Spalte B bei Dez. 22 an und schreibt auch jede Änderung darin fort.

Ich hoffe du kannst mir bei der Lösung da nochmal weiter helfen.

Vielen Dank

Ingolf

 

Sry, das mit der Darstellung der Tabelle hat nicht funktioniert.

Spalte A ist der Monat mit Jahr
Salte B ist zur Zeit ein fünfstelliger Zahlenwert (Gesamtverbrauch vom Wärmemengenzähler)
Spalte C ist ein 2 oder mehrstelliger Zahlenwert der die monatlich verbrauchte Menge in kwh darstellt

Gruß

Ingolf

 

Ändere diese Zeile:

Code:

        For Each rngZelle In Target  '<== Target anstelle Selection

---

 

Vielen vielen Dank,

jetzt passt es

Gruß

Ingolf