1 Leerzeile einfügen
08.09.2014 08:50:00
ANAnas
Ich habe folgenden Code:
Sub Start()
Dim LoI As Long
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 25)), Cells(Rows.Count, 25).End(xlUp).Row, Rows. _
Count)
For LoI = LoLetzte To 1 Step -1
If Cells(LoI, 25) = 2 Then
Rows(LoI).Copy
Rows(LoI + 1).Insert Shift:=xlDown
Rows(LoI + 2 & ":" & LoI + 3).Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
End If
Next LoI
Application.DataEntryMode = False
End Sub
Dieser bewirkt das Kopieren einer Zeile, wenn in der Spalte 25 die 2 steht und anschließend 2 Leerzeilen einfügt.
Ich würde aber gerne nur 1 Leerzeile unterhalb haben...wie geht das? ;)
Anzeige