Hallo zusammen!
Ich versuche Folgendes Problem zu lösen und zwar muss ich in der Spalte B nach einem Kürzel "ECE" suchen darunter dann eine Leerzeile einfügen und die Zeile zuvor kopieren und in die Leerzeile einfügen. Die Leerzeile einfügen funktioniert soweit, jedoch suche ich nach einer Lösung die Zeile zuvor zu kopieren und dann einzufügen!
Aktueller Code
Sub Leerezeile()
Dim lngI As Long
With ActiveSheet
For lngI = .Range("B65536").End(xlUp).Row To 1 Step -1
If .Cells(lngI, 2).Value = "ECE" Then ' Schluesselwort: TotalIf .Cells(lngI, 2).Value = "Total" Then ' Schluesselwort: Total
.Rows(lngI + 1 & ":" & lngI + 1).Insert Shift:=xlUp
End If
Next lngI
End With
End Sub
Hat jemand eine Idee?
Danke
Lg, Christian
|