Alle Ränder innerh. Bereich weg, neue festlegen
01.06.2007 13:23:00
Peter
Ich möchte in einem benannten Bereich ("Daten1") alle Ränder entfernen und dann auf allen Zeilen, die in Spalte Y den Buchstaben "S" haben, von Spalte A bis H einen einfachen, dünnen Strich unten wieder setzen.
Fragen:
Wie entferne ich in einem bestimmten Bereich alle Ränder?
Was muss anstelle With Selection.Borders stehen, dass ich von Spalte A bis H den gewünschten Strich unten erhalte?
Danke, Peter
Sub Unterstreichen()
Dim y As Long
Application.ScreenUpdating = False
For y = Range("Y65536").End(xlUp).Row To 1 Step -1
If Cells(y, 25).Value = "S" Then With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next i
Application.ScreenUpdating = True
End Sub
Anzeige