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