Code Snippet "VBA Excel"

Jede 5. Zeile mit Linie versehen (im bearbeiteten Bereich)

Sub procLinieNach5Zeilen()
  Const INT_ZEILENUEBERSPRINGEN = 5
  Dim intLastColumn
  Dim intLastRow
  
  intLastColumn = ActiveCell.SpecialCells(xlLastCell).Column
  intLastRow = ActiveCell.SpecialCells(xlLastCell).Row

  Range("A1").Offset(INT_ZEILENUEBERSPRINGEN - 1, 0).EntireRow.Select
  
  Selection.Range(Cells(1, 1), Cells(1, intLastColumn)).Select
  
  Do While Selection.Row <= intLastRow
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Offset(INT_ZEILENUEBERSPRINGEN, 0).Range(Cells(1, 1), Cells(1, intLastColumn)).Select
  Loop
End Sub