Code funktioniert mir fehlen aber noch 2 Punkte
geri
Ich kämpfe immer noch mit den zwei offenen Punkten
a. ich hätte gerne in Zellekommentar den letzten Zustand vor Änderung in Zelle Text= max 15 Zeichen
b. das sich Kommentarfgelf der Grösse anpasst
DANKE an Reinhard, habe deine FRage erst heute gesehen und Thema ist schon im Archiv und von dort
aus kann ich nicht antworten SORRY deswegen neuer Beitrag
SOLL = IN Zelle hat es Gültigkeiten ... OFFEN, IN ARBEIT, ABGELEHNT usw. bei Korrektur
wird in Kommentar der USERNAME eingetragen mit Datum/Zeit dies funktioniert
wenn möglich hätte ich noch gerne den letzten Wert, damit man weis wer hat von OFFEN ... auf
ERLEDIGT gesetzt
DANKE für HIlfe
GRuss aus CH
geri
Private Function AenderungskennungAlsKommentar(r As Range)
'*** für die geänderte Zelle wird im Kommentar
'*** Benutzerkennung und Änderungszeitpunkt
'*** eingetragen
'*** Ist kein Kommentar vorhanden, wird ein neuer angelegt
Dim S As String, s_user As String
Dim office As String
'ggf. vorhandenen Kommentar lesen
On Error Resume Next
S = r.Comment.Text
If Err.Number 0 Then
Err.Clear
'neuen Kommentar anlegen
r.AddComment
r.Comment.Visible = False
S = ""
End If
On Error GoTo 0
'Wenn Kommentar vorhanden, Zeilenumbruch anfügen
If S "" Then S = S & vbLf
'Letzten Benutzer feststellen
's_user = ActiveWorkbook.BuiltinDocumentProperties(7)
office = Environ("Username")
'Datum und Benutzer an Kommentar anfügen
S = S & Format(Now(), "yyyymmdd_hhnn: ") & office
'Kommentar eintragen
r.Comment.Text S
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
'Für jede geänderte Zelle
For Each r In Target
'Wenn Spalte A oder B
If (r.Column = 13) Or (r.Column = 14) Then
'dann Kommentar eintragen
Call AenderungskennungAlsKommentar(r)
End If
Next
Set r = Nothing
End Sub
