durchgestrichenen Text protokollieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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" Else Cells(4, 3).Offset(, 1) = "" Cells(4, 3).Offset(, 2) = "" End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(4, 3).Font.Strikethrough = True Then Cells(4, 3).Offset(, 1) = Application.UserName Cells(4, 3).Offset(, 2) = Cells(4, 3).Value Cells(4, 3).Offset(, 3) = "Durchgestrichen" Else Cells(4, 3).Offset(, 1) = "" Cells(4, 3).Offset(, 2) = "" Cells(4, 3).Offset(, 3) = "" End If End Sub

Hallo Werner,
vielen Dank für die Rückmeldung.
Leider Funktioniert das nicht.
Ich habe den Code in die Tabelle "Einkauf" gelegt und es gab keine Veränderung bei der Protokollierung.
Ich habe in einem anderen Forum gelesen, das Zellenformatierungen keine VBA-Funktionen anstoßen können.
Nun habe ich an die Alternative gedacht, den Text samt Formatierung in das Protkoll zu übertragen.
Dieses würde ja auch darstellen, wenn ein Text durchgestrichen wurde.
Dieser Teil des Arbeitsmappencodes müsste meiner Meinung nach mit einer Art wie diesem Code:".PasteSpecial Paste:=xlPasteValues" kombiniert werden.


If rngZelle.Value = "" Then
.Cells(lngLZ, 5) = ""
Else
.Cells(lngLZ, 5) = rngZelle.Value
End If

Jedoch qualmt mir die Rübe schon so stark davon.
Ich sehe da kein Licht am Ende des Tunnels.

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 ?

Beliebteste Forumthreads (12 Monate)

durchgestrichenen Text protokollieren

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread