Hallo,
ich habe folgenden code, der aber nicht funktioniert.
Kann mir jemand sagen, was daran falsch ist?
x ist immer 0, auch wenn es Zellen gibt, in denen der Text durchgestrichen ist.
Mit freundlichen Grüßen
Frank
For i = 4 To ende
Cells(i, 3).Select
If Cells.Font.Strikethrough = True Then
x = x + 1
End If
Next