HERBERS Excel-Forum - das Archiv
Thema: Rows().Insert
-
Rows().InsertRaphael
-
AW: Rows().InsertRudi
Rows().Insert
Raphael
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
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
AW: Rows().Insert
Rudi
Hallo,
da du s=2 setzt, wird die Schleife (Do While s = 0) nicht durchlaufen.
Gruß
Rudi
Rows().Insert
Raphael
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
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
AW: Rows().Insert
Rudi
Hallo,
da du s=2 setzt, wird die Schleife (Do While s = 0) nicht durchlaufen.
Gruß
Rudi