Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erstellungsdatum in Kommentaren

Erstellungsdatum in Kommentaren
04.08.2003 10:58:56
Stefan C.
Hallo zusammen,
gibt es eine Möglichkeit statt des Benutzernamens das Ersterstellungsdatum in jeden neuen Kommentar automatisch einzufügen (statt Benutzername)?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erstellungsdatum in Kommentaren
04.08.2003 12:37:12
Galenzo
Ich habe da mal das gebastelt, probier's mal aus:

Sub NewComment()
Dim sComment As String
Dim sDatum As String
If Not (ActiveCell.Comment Is Nothing) Then
sComment = ActiveCell.Comment.Text
ActiveCell.ClearComments
End If
sDatum = Format(ThisWorkbook.BuiltinDocumentProperties(11), "dd.mm.yyyy")
sComment = InputBox("Kommentar eingeben:", , sComment)
If sComment = "" Then Exit Sub
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=sDatum & vbLf & sComment
End With
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub


Anzeige
AW: Erstellungsdatum in Kommentaren
04.08.2003 12:41:27
Stephan
Hi Stefan !
Versuch mal folgenden Code (in das Klassenmodul der Tabelle schreiben!)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim co As String
co = Time
Target.AddComment co
End Sub


AW: Erstellungsdatum in Kommentaren
04.08.2003 12:44:59
Stephan
besser:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim co As String
co = Time
Target.ClearComments
Target.AddComment co
End Sub


AW: Erstellungsdatum in Kommentaren
04.08.2003 13:14:50
Stefan C.
Hallo Galenzo, Hallo Stephan,
vielen Dank für die schnelle Hilfe ich probiere es gleich aus.
Viele Grüße aus München
Stefan C.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige