Wert in Zelle einfügen
20.02.2015 09:37:18
Roger
Ich habe folgenden Code der mir, wenn in Spalte B eine Zelle leer ist, zwei Leerzeilen einfügt. Nun hätte ich aber gerne das er mir in der zweiten leeren Zeile die er einfügt in Spalte A dann ein Wort z.b. Test reinschreibt. Also wenn z.B. zwischen A6 und A7 die beiden leerzeilen eingefügt werden, soll er mir dann in A8 die leere Zeile bevor wieder ausgefüllte Zeilen kommen, Test reinschreiben.
Sub Zeilen_einfügen1()
Dim loLetzte As Long
Dim loZeile As Long
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For loZeile = loLetzte To 1 Step -1
If Cells(loZeile, 2) = 0 Then
Rows(loZeile).Insert Shift:=xlDown
Rows(loZeile).Insert Shift:=xlDown
End If
Next loZeile
End Sub
Roger