Linie unten und oben - gehts einfacher?
28.05.2008 14:20:00
Peter
In einer Schlaufe frage ich pro Zeile ab, ob eine bestimmte Bedingung erfüllt ist. Wenn ja, wird auf der entsprechenden Zeile oben und unten eine Linie von Spalte 1 - 12 angebracht.
Kann ich die beiden With Range in einen zusammenfassen oder müssen die Linien oben und unten einzeln verpasst werden?
Danke für eine Antwort.
Gruss, Peter
With Range(Cells(y, 1), Cells(y, 12)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Range(Cells(y, 1), Cells(y, 12)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic