Zellenformatierung
23.06.2005 16:22:51
Lorenz
Ich möchte nach mehrstündigen Fehlversuchen mit Doppelklick ein X(Kreuz aus der Palette - Rahmen)in einer Zelle setzen, wenn vorhanden dann bei Doppelklick entfernen.
Untenstehend einer der vielen nicht Funktionerenden Fehlversuche!
Bitte um Unterstützung(vielleicht sogar neuen Code)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Intersect(Target, Range("B25:C26")) Is Nothing Then Exit Sub
With Selection.Borders(xlDiagonalUp) And Selection.Borders(xlDiagonalDown)
If .LineStyle = xlAutomatic Then
.LineStyle = xlNone
Else
.LineStyle = xlAutomatic
End If
End With
End Sub
Grüsse Lorenz