ich benötige einmal Hilfe für ein Makro. Bin schon teilweise am verzweifeln. Das Makro soll über jeder Zeile wo
sich ein K befindet die Überschriften (U1, U2) einfügen. Im Beispiel befinden sich hier 2 Überschriften, es kann
aber auch sein, dass in der Datei bis zu 5 Überschriften vorkommen. Auch die Anzahl der K können von
unterschiedlich sein.
Ausgangssituation:
U1 --> Das ist Überschrift 1
U2 --> Das ist Überschrift 2
K
K
K
Ziel:
U1
U2
K
U1
U2
K
U1
U2
K
Nach sehr langen ausprobieren habe ich es wenigstens geschafft, dass vor jedem K eine Zeile eingefügt wird.
Das Thema mit den Überschriften bekomme ich leider nicht hin.
Sub ZeileEinfügen() Dim Lrow As Long Dim i As Long Lrow = Cells(Rows.Count, 1).End(xlUp).Row For i = Lrow To 2 Step -1 If Cells(i, 1).Value = "K" Then Rows(i + 1).Insert Shift:=xlDown End If Next i End Sub Herzlichen Dank
Christian