ich will mit Doppelklick zwei Diagonale in eine Zelle machen. Mein Problem
Sind in der Zelle noch keine Diagonalen sollen sie eingezeichnet werden, sind welche vorhanden sollen Sie gelöscht werden.
Gruß Hajo
ich will mit Doppelklick zwei Diagonale in eine Zelle machen. Mein Problem
Sind in der Zelle noch keine Diagonalen sollen sie eingezeichnet werden, sind welche vorhanden sollen Sie gelöscht werden.
Gruß Hajo
so oder?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' erstellt von Hajo Ziplies 14.12.02
Dim RaBereich As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("A:E")
' ActiveSheet.Unprotect
' überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(Target, RaBereich) Is Nothing Then
' Diagonal
If Target.Borders(xlDiagonalDown).LineStyle = 1 Then
With Target.Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = xlNone
End With
Else
With Target.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThick
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End If
End If
Cancel = True
' ActiveSheet.Protect
End Sub
Gruß
Steffen D
herzlichen Dank, das geht ja wie ich es mir vorgestellt habe.
Noch einen schönen Tag.
Gruß Hajo