Möchte gern den Rahmen beim Verlassen der Tabelle, das er gelöscht wird.
Mfg Peter
Option Explicit
Public iCurSheet As Integer
Private Sub Worksheet_Activate()
iCurSheet = ActiveSheet.Index
End Sub
Private Sub Worksheet_Deactivate()
With Sheets(iCurSheet).Range("A1:B10")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub
Gruss Hansueli