Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Änderungsdatum einer Zelle im Kommentarfeld

Änderungsdatum einer Zelle im Kommentarfeld
28.06.2006 10:14:05
Enrico
Hallo
Ist es möglich das Änderungsdatum (und Uhrzeit) im Kommentarfeld einer Zelle zu Dokumentieren ?
Wenn ja wie.
Danke

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungsdatum einer Zelle im Kommentarfeld
28.06.2006 10:20:48
u_
Hallo,
in das Klassenmodul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Comment Is Nothing Then
Target.AddComment Format(Now, "dd.mm.yyyy hh:mm:ss")
Target.Comment.Visible = False
Else
With Target.Comment
.Text Format(Now, "dd.mm.yyyy hh:mm:ss")
.Visible = False
End With
End If
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Ups-war wohl zu langsam:-) oT
28.06.2006 10:32:46
Bertram
AW: Änderungsdatum einer Zelle im Kommentarfeld
28.06.2006 10:31:32
Bertram
Hallo Enrico,
so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Comment Is Nothing Then
Target.AddComment Format(Now(), "dd.MM.yyyy hh:mm:ss")
Else
Target.Comment.Text Text:=Format(Now(), "dd.MM.yyyy hh:mm:ss")
End If
End Sub

Gruß
Bertram
Anzeige
AW: auch zu langsam..dafür anders ;-)
28.06.2006 10:36:01
Harald
Hi Enrico
..für Änderungen im Bereich A1:A5 und Kommentar in B1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a5")) Is Nothing Then
With Range("b1")
.Comment.Delete
.AddComment Text:="Letzte Änderung:" & Chr(10) & "in Zelle  " & Target.Address(0, 0) & _
Chr(10) & "am " & Format(Now, "dd.mm.yy hh:mm")
End With
End If
End Sub

Gruss Harald
AW: auch zu langsam..dafür anders ;-)
28.06.2006 16:56:53
Enrico
Hallo
Ich danke allen die geantwortet haben.
Mit der Lösung von Bertram klappt alles Super
Danke
Gerne oT
28.06.2006 18:27:34
Bertram

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige