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 HansueliDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen