Rahemnzaubereien per VBA
18.04.2007 17:14:14
Thomas
wenn ich um den Bereich F8 bis H14 einen dicken grauen Rahmen ziehen will und dann eine doppelte senkrechte Linie einfügen möchte und dahinter eine normale Linie, ist das vom Makroeditor der richtige Weg? Man kann nicht einfach Eckpunkte angeben und 'sagen' RAHMEN?
Und man muss über select gehen und kann nicht direkt die Range angeben? Also am einfachsten, da ich ja mit Laufvariablen arbeite wäre etwas wie
x=6
y=8
Range(Cells(y,x), Cells(y+6,x+2) ).Rahmen
Range(Cells(y+1,x+1), Cells(y+6,x+1) ).LinieLinksDoppelt
Range(Cells(y+1,x+2), Cells(y+6,x+2) ).LinieLinksEinfach
oder so in der Art.
Muss man das immer so umständlich mit xlNone und der jeweiligen Angabe
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
für jeden Bereich machen?
Ich hatte gehofft, dass obiges Problem _elegant_ mit 3 Zeilen lösbar wäre. Eben einmal Rahmen und 2 Linien...
Kann mir da jemand, wenn das denn geht, weiterhelfen?
Tommi
Range("F8:H14").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("G9:G14").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = 48
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("H9:H14").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 48
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 48
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone