Für xlLandscape habe ich zB .Orientation = 2 benutzt...jetzt brauche ich auch die Variablen für die Rahmenerstellung (alle Werte mit xl müssen ersetzt werden.)
.Range("A:L").Borders(xlEdgeRight).LineStyle = xlContinuous
.Range("A:L").Borders(xlEdgeRight).Weight = xlThin
.Range("A:L").Borders(xlEdgeLeft).LineStyle = xlContinuous
.Range("A:L").Borders(xlEdgeLeft).Weight = xlThin
xlDiagonalDown
xlDiagonalUp
xlEdgeTop
xlEdgeBottom
Danke schonmal (: