Underline für alle Zeilen
27.02.2004 12:45:18
Michael
so wird nur die aktive Zelle underlined:
Sub Underline()
For Each Row In Worksheets 'Wie geht das mit der For schleife?
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Next
End Sub
Vielleicht kann mir jmd helfen...
Gruß
Michel