automatischer Kommentar
30.06.2006 07:50:03
Enrico
vor ein paar Tagen hatte ich schon eine Antwort auf meine Frage nach Mitschreibung des Änderungsdatums im Kommentar einer Zelle erhalten.
Nach Erweiterung meiner Tabelle klappt das aber nicht mehr so ganz.
Das war die Lösung
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
Nun mein neues Problem
Ich möchte einen Bereich markieren und darin allen Zellen einen Wert (bzw. Zeichen) zuweisen umd möchte dann in jeder einzelnen Zelle das Änderungsdatum im Kommentar stehen haben.
Meine Lösung für das Ausfüllen der Zellen ist sicher nicht die eleganteste aber sie funktioniert. Ich würde mich naturlich auch über eine bessere Lösung hierzu freuen.
Damit ändere ich alle Zellen im markierten Bereich.
Sub ändern()
Selection.ClearContents
Selection.Replace What:="", Replacement:="U", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
PS.: bei geschützter Arbeitsmappe funktioniert auch das mit dem Kommentar nicht mehr - vielleicht weiß da auch noch jemand abhilfe - mein Sheet ist nämlich geschützt.