Rows().Insert

Bild

Betrifft: Rows().Insert
von: Raphael
Geschrieben am: 01.10.2015 08:19:04

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

Userbild

Bild

Betrifft: AW: Rows().Insert
von: Rudi Maintaire
Geschrieben am: 01.10.2015 09:58:12
Hallo,
da du s=2 setzt, wird die Schleife (Do While s = 0) nicht durchlaufen.
Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datum miteiinander vergleichen"