Rahmen löschen beim Tab verlassen

Forumthread: Rahmen löschen beim Tab verlassen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Rahmen löschen beim Tab verlassen

23.05.2006 23:11:13

Peter

Hallo
Möchte gern den Rahmen beim Verlassen der Tabelle, das er gelöscht wird.
Mfg Peter

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wer aus dem Rahmen fällt, ist nicht mehr im Bild ?

23.05.2006 23:19:50

EtoPHG
AW: Rahmen löschen als Beispiel

23.05.2006 23:34:08

EtoPHG
AW: Rahmen löschen als Beispiel

24.05.2006 00:05:54

peter

Wer aus dem Rahmen fällt, ist nicht mehr im Bild ?

23.05.2006 23:19:50

EtoPHG

AW: Rahmen löschen als Beispiel

23.05.2006 23:34:08

EtoPHG

Hallo Peter,
War nicht bös gemeint vorher, aber ein bisschen mehr Angaben könnten nicht schaden.
Hier ein Beispiel, dass in die Tabelle gehört, in der Du den Rahmen löschen willst.
Angenommen der Rahmen ist hier um A1:B10 (also Rangebereich anpassen!)


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

AW: Rahmen löschen als Beispiel

24.05.2006 00:05:54

peter

Hallo Hansueli
Hast natürlich Recht. Werde mich bessern.
Vielen Dank
Mfg. Peter