Kommentar bei geänderter Zelle
20.06.2007 11:25:00
Gunnar
ich habe den folgenden Code (aus einem Forumsbeitrag aus 2005) verwendet:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & ": " & Date
End With
End Sub
Funktioniert spitze, hat nur einen Makel. Wenn mehrere Zellen markiert und gelöscht bzw. Zellen kopiert werden, hängt er sich in der Zeile "If .Comment Is Nothing Then .AddComment" auf.
Gibt es eine Möglichkeit, dass der Kommentar auch bei blockweisem Löschen oder Kopieren eingetragen wird? Beim Kopieren soll dann natürlich auch ein Kommentar mit neuem Datum rein und nicht der aus der kopierten Zelle.
Vielen Dank im Voraus
Gunnar
Anzeige