Trennlinien in Tabelle zeichnen

Sprache / Programm: Excel ab Version 2000

Beschreibung

Die Prozedur zeichnet horizontale Trennlinien in ein Tabellenblatt, die gleichartige Zeilen einschließen. Das Kriterium, ob eine Linie gezogen wird, nimmt die Prozedur aus der ersten markierten Spalte.

VBA-Quelltext

Public Sub TrennLinien()
Dim ZeileNr As Long, LZ As Long, LS As Long
Dim Spalte As Excel.Range, Blatt As Object

For Each Blatt In ActiveWindow.SelectedSheets
Blatt.Select
Set Spalte = Selection.Columns(1)

LZ = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
LZ = IIf(Spalte.Rows(Spalte.Rows.Count).Row < LZ, Spalte.Rows(Spalte.Rows.Count).Row, LZ)
LS = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

For ZeileNr = 2 To LZ
If Spalte.Cells(ZeileNr).Value <> Spalte.Cells(ZeileNr - 1).Value Then
With Range(Cells(ZeileNr, 1), Cells(ZeileNr, LS)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End If
Next ZeileNr
Next Blatt
End Sub

Argumente der Funktion/Prozedur

Keine Argumente erforderlich.

Die Funktion nimmt aus dem markierten Bereich die erste Spalte und zieht eine horizontale Linie zwischen zwei Zeilen, sobald sich in der markierten Spalte von der einen zur anderen Zelle ändert.

Die horizontale Linie wird im gesamten benutzten Bereich erstellt.

Rückgabewert

Keine.

Hinweis

Es können auch mehrere Blätter gleichzeitig markiert werden, jedes Blatt wird dann individuell bearbeitet.