Row insert
22.10.2015 10:01:46
Raphael
Mein Vorhaben ist es in Spalte B (ab Zeile 12) auf Inhalt zu prüfen.
Wenn die Zelle B12 leer ist, kann auch das Makro abgebrochen werden. Wenn B12 befüllt ist soll eine Zeile B13 mit den Eigenschaften von B12 eingefügt werden.
Anschließend soll B13 überprüft werden, anschließend B14 usw...
Der Test auf "befüllt" bzw. nicht "befüllt" müsste somit in einem Interval erfolgen, oder ?
Meine bisherige Version Ist leider nicht zielführend, da mir die Zellen zwischen B12 und B13 eingefügt werden (siehe Screenshot).
Ich hoffe auf eure Expertise ;)
Grüße,
Raphi
Sub Projektstatusbericht()
Dim i As Integer
Dim s As Integer
s = 2
i = 12
Do While Not s = 0
If Sheets("P4_Projektstatusbericht").Cells(i, 2).Value = "" Then
s = 0
Else
Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove
End If
i = i + 1
Loop
End Sub