Hi Excelfreunde,

ich tüftel aktuell an einem Berichtssheet in dem ich wenn eine Zeile (Spalte B; Zeile 18) befüllt ist eine neue Zeile darunter einfüge.

Leider funktioniert mein bisheriger Code nicht wie gewünscht....kann mich jemand aufklären ? ;)

Viele Grüße,

Raphi

Option Explicit

Option Explicit

Sub PS_Bericht_Zeile()
Dim i As Integer
Dim s As Integer

s = 2
i = 18

Do While s = 0
If Sheets("Test").Cells(i, 2).Value = "" Then
s = 0
Else
Rows(Cells(i, 2).End(xlUp).Row + 1).Insert
i = i + 1
End If

Loop

End Sub