Zelle Durchstreichen bei Doppelklick
12.02.2020 08:21:43
Thomas
Ich habe folgenden Code gefunden, der auch funktioniert.
Jedoch möchte ich, das die Funktion nur in Spalte F und Spalte G funktioniert.
Weiteres Problem, wenn ich auf "Enf" drücke, sollte das durchstreichen wieder weggehen.
Daher ich wenig Erfahrung habe, wie müßte der Code abgeändert werden?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Borders(xlDiagonalDown).LineStyle = xlNone Then
With Target.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Else
Target.Borders(xlDiagonalDown).LineStyle = xlNone
Target.Borders(xlDiagonalUp).LineStyle = xlNone
End If
Cancel = True
End Sub
Anzeige