Rows().Insert
01.10.2015 08:19:04
Raphael
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
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
Anzeige