Thema: Zeile einfügen, wenn 100er-Sprung

StandardModule: Modul1

Sub SetHeaders()
   Dim lRow As Long, lRowL As Long
   Application.ScreenUpdating = False
   lRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For lRow = lRowL To 2 Step -1
      If lRow = 2 Then
         Rows(lRow).Insert
         Cells(lRow, 1).Value = "Start " & Fix(Cells(lRow + 1, 1).Value / 10000) * 10000
      ElseIf Fix(Cells(lRow, 1).Value / 10000) <> _
         Fix(Cells(lRow - 1, 1).Value / 10000) Then
         Rows(lRow).Insert
         Cells(lRow, 1).Value = "Start " & Fix(Cells(lRow + 1, 1).Value / 10000) * 10000
      End If
   Next lRow
   Range("A2").Font.Bold = False
   Columns.AutoFit
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Liste