Linie unter der aktiven Zelle
20.11.2003 11:06:47
PeterM
mit dem folgenden Skript
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Borders.LineStyle = xlNone
Rows(Target.Row).Borders.Weight = xlMedium
End Sub
wird erreicht, dass alle Zellen der Zeile, in der sich die aktuelle Zelle befindet, umrahmt erscheinen.
Wie müßte die dritte Zeile geändert werden, damit nur am den unteren Rändern der Zellen ein Rahmen erscheint?
Es soll also nur eine Linie über die ganze Tabelle am unteren Rand der aktiven Zelle erscheinen.
Vielen Dank für eine Lösung
PeterM