Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Überschriften gemäß Indizes in Tabelle einfügen

Gruppe

Bearbeiten

Problem

Die Überschriften aus dem BLatt "Titel" sollen gemäß der Index-Spalte vor jedem Zeilenblock eingefügt werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub InsertTitel()
   Dim rng As Range
   Dim var As Variant
   Dim iRow As Integer, iRowL As Integer
   Set rng = Worksheets("Titel").Range("A1").CurrentRegion
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = iRowL To 2 Step -1
      If Cells(iRow, 1).Value <> Cells(iRow - 1, 1).Value Then
         Rows(iRow).Insert
         Rows(iRow).Font.Bold = True
         var = Application.Match(Cells(iRow + 1, 1).Value, rng.Columns(1), 0)
         Cells(iRow, 1).Value = Cells(iRow + 1, 1).Value
         If Not IsError(var) Then
            Cells(iRow, 2).Value = rng.Cells(var, 2).Value
         Else
            Cells(iRow, 2).Value = "Kein Titel"
         End If
      End If
   Next iRow
End Sub