Linie ziehen wenn...
01.12.2003 14:16:18
michael
wie kann der Range Befehl verändert werden(per macrorec aufgezeichnet), so dass eine obere Rahmenlinie von mehreren Zellen einer Zeile ausgeführt wird?
for i= 0 to 100
If IsNumeric(Wert(i)) Then
'Range("N11:Z11").Select 'wie wird dieser geändert?
'Range("Z11").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
next
Gruß
Michael