|
Hallo Leute
Ich komme nicht klar auf ein Problem mit VBA.
Mit folgendem Code kann ich immer dann eine neue Zeile einfügen, wenn das Schlüsselwort: "Zeile einfügen" in meinem Dokument steht:
Dim lngI As Long
With ActiveSheet
For lngI = .Range("B65536").End(xlUp).Row To 1 Step -1
If .Cells(lngI, 2).Value = "Zeile einfügen" Then ' Schluesselwort: Zeile einfügenIf .Cells(lngI, 1).Value = "Zeile einfügen" Then ' Schluesselwort: Zeile einfügen
.Rows(lngI + 1 & ":" & lngI + 1).Insert Shift:=xlUp
End If
Next lngI
End With
Leider fügt mir dieser Code aber immer Zeilen mit einer bedingten Formatierung ein. Wie kann ich Zeilen ohne bedingte Formatierung einfügen?
lg, Stefan |