Hallo,
Ich muss in einer Tabelle ab der letzten Zeile die Rahmen entfernen, weil Excel ansonsten
nicht nur die Werte, sondern alles was eingerahmt ist druckt. (Kann man das vielleicht beeinflussen?)
Da ich (bzw. VBA) nicht weiß bis zu welcher Zelle die Rahmen gehen, setze ich einfach von der letzten
Zeile bis zur Zeile 65535 alles zurück.
Das ganze funktioniert auch, aber der folgende Code braucht ca. 3 Sekunden und was noch schlimmer
ist, er bläht die Tabelle auf ca. 4MB auf (vorher 160kB).
Wer weiß Rat.
Vielen Dank im Voraus
Gruß Horst
Mein Code:
Set Leerbereich = Range(Cells(LetzteZeile, 1), Cells(65535, 20))
With Leerbereich
.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