Excel: Rahmen zeichnen

[Morlon]

Die folgenden paar Zeilen zeichnen dir ein wunderschönes Quadrat in Excel.

Code:

 
    Range("A1:C3").Select
    Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
    Selection.Borders(xlEdgeLeft).Weight = xlMedium
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
    Selection.Borders(xlEdgeTop).Weight = xlMedium
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Selection.Borders(xlEdgeBottom).Weight = xlMedium
    Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
    Selection.Borders(xlEdgeRight).Weight = xlMedium

Mehr brauchst du nich

Was sollen da zb die zeilen:

Code:

 
XLApp.Selection.Borders.Item(xlDiagonalDown).LineStyle := xlNone; 
XLApp.Selection.Borders.Item(xlDiagonalUp).LineStyle   := xlNone;

damit sagst dem ja er soll bitte KEINE linien diagonal zeichnen, solang da nich linien sin die du wieder entfernen willst sind die zeilen unfug.

Kleiner Tipp, wenn du nich weißt was bei nem Macro ne bestimmte Zeile soll, dann schmeiß sie raus und schau was sich verändert hat