Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeile einfügen, wenn 100er-Sprung

Gruppe

Liste

Problem

Wenn in der Zahlenreihe eine neuer 1000er Abschnitt beginnt, wird ein Text eingefügt.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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