ich habe eine Excel - Datei erstellt
Die Datei https://www.herber.de/bbs/user/4638.xls wurde aus Datenschutzgründen gelöscht
Gruß
Andreas
Die Datei https://www.herber.de/bbs/user/4638.xls wurde aus Datenschutzgründen gelöscht
Sub durchstreichen()
Dim c As Object
For Each c In Selection
If c.Font.Bold = False Then
c.Borders(xlDiagonalDown).LineStyle = xlNone
With c.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next c
End Sub