Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kommentar-Formatierung

Forumthread: Kommentar-Formatierung

Kommentar-Formatierung
29.05.2008 13:08:37
Stephan

Hallo zusammen,
ich habe folgende Problemstellung:
der Kommentar in der angehängten Datei wird per Makro automatisch bei einer Zelländerung erzeugt. Jetzt kann es sich, wie in diesem Fall, um eine Uhrzeit (Format: hh:mm:ss) handeln. Im Kommentar wird der Originaleintrag allerdings dann als Dezimalzahl angezeigt. Wie müsste der unten aufgeführte Code abgeändert werden, damit die Uhrzeit, wie in der Zelle, im Format "hh:mm:ss" dargestellt wird?
Vielen Dank für eure Unterstützung schon mal im Voraus! Gruß, Stephan
https://www.herber.de/bbs/user/52694.xls
Option Explicit
Dim varUrsprung As Variant


Private Sub Worksheet_Change(ByVal Target As Range)
Dim strComment As String
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B2:AF30")) Is Nothing Then Exit Sub
With Target
If .Comment Is Nothing Then
.AddComment "Der Kommentar wurde erzeugt am: " & Date & " - " & Time & Chr(10) & "   _
_
Vorgenommen durch: " & Environ("UserName") & Chr(10) & "Originaleintrag: " & varUrsprung
.Comment.Visible = False
Else
strComment = .Comment.Text & Chr(10)
.Comment.Text strComment & Chr(10) & "Änderung vorgenommen am: " & Date & " - " &   _
_
Time & Chr(10) & "Änderung vorgenommen durch: " & Environ("UserName") & Chr(10) & "Geänderter  _
Inhalt: " & varUrsprung
.Comment.Visible = False
End If
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
varUrsprung = Target
End Sub


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar-Formatierung
29.05.2008 13:22:06
ransi
HAllo
Versuch mal:(Ungetestet)
varUrsprung = Target.Text
ransi

Kommentar-Formatierung
29.05.2008 13:33:24
Stephan
Hallo ransi,
vielen Dank für Deine schnelle Hilfe! Genauso sollte es sein! Danke noch mal!!
Grüße, Stephan

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige