Linie unter der aktiven Zelle

Bild

Betrifft: Linie unter der aktiven Zelle
von: PeterM
Geschrieben am: 20.11.2003 11:06:47

Liebe Formatexperten,
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
Bild


Betrifft: AW: Linie unter der aktiven Zelle
von: Nayus
Geschrieben am: 20.11.2003 11:19:28

Hi,
Zeile 3 ändern in:

Rows(Target.Row).Borders(xlEdgeBottom).Weight = xlMedium

Gruß,
Nayus


Bild


Betrifft: AW: Linie unter der aktiven Zelle
von: PeterM
Geschrieben am: 20.11.2003 11:27:41

Danke Nayus, das wars - super1
PeterM


Bild

Beiträge aus den Excel-Beispielen zum Thema " Linie unter der aktiven Zelle"