AW: Keine Lösung -offen-
04.02.2016 20:51:43
Torsten
Trotzdem Danke.
Also ich habe ja nun rausgefunden das eine Formatierung keine Funktion anstößt und somit ist von da her keine Protokollierung möglich.
Jedoch lässt mich dein Code nicht so ganz in Ruhe den du gepostet hast.
Dieser reagiert auf das Durchstreichen einer Zelle.
Problem ist, er reagiert nur auf eine Zelle.
Ich habe das zwei Ideen von den ich nicht los komme....
1) Es würde ja reichen aus diesem Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(4, 3).Font.Strikethrough = True Then
Cells(4, 3).Offset(, 1) = Cells(4, 3).Value
Cells(4, 3).Offset(, 2) = "Durchgestrichen"
ElseIf Cells(4, 3).Font.Strikethrough = False Then
Cells(4, 3).Offset(, 1) = ""
Cells(4, 3).Offset(, 2) = ""
ElseIf Cells(4, 3) = "" Then
Cells(4, 3).Offset(, 1) = ""
Cells(4, 3).Offset(, 2) = ""
End If
End Sub
die Funktion zu nutzen, um in der Protkollierungsdatei hinter dem eingetragenen Text z.B. "gestrichen" zu schreiben.
2)Die gesamte Formatierung mitkopieren in das Protokoll.
So kann ich ebenfalls sehen Wer, Wann etwas durchgestrichen hat.
PasteSpecial Paste:=xlPaste
Vielleicht hat jemand anders noch eine Idee ?