AW: Zellen mit x autom.
03.09.2003 20:48:59
Reinhard
Hallo Werner,
mit Hajos Code hab ich folgendes gebstelet:
Gruß
Reinhard
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
TC = Target.Column
TR = Target.Row
x = ""
If TC < 4 And TR > 2 Then x = "A:C"
If TC > 3 And TC < 7 And TR > 2 Then x = "D:F"
'Im Bereich A:C entfernt ein Doppelklick auf ein Kreuz das Kreuz, im Bereich D:F nicht
If x = "" Then Exit Sub
Cancel = True
If x = "A:C" And Target.Borders(xlDiagonalDown).LineStyle = 1 Then flag = 1
With Range(Left(x, 1) & TR & Right(x, 2) & TR)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
If x = "D:F" Or flag = 0 Then
With Target
.Borders(xlDiagonalDown).LineStyle = xlContinuous
.Borders(xlDiagonalDown).Weight = xlThick
.Borders(xlDiagonalUp).LineStyle = xlContinuous
.Borders(xlDiagonalUp).Weight = xlThick
End With
End If
flag = 0
End Sub