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
