Sub
ZeilenAuffuellen()
Dim
ersteSpalte
As
Integer
Dim
letzteSpalte
As
Integer
Dim
kontrollSpalte
As
Integer
Dim
aktuelleSpalte
As
Integer
Dim
ersteZeile
As
Long
Dim
letzteZeile
As
Long
Dim
aktuellePruefZeile
As
Long
Dim
aktuelleKopierZeile
As
Long
Dim
zeilenInhalt
As
String
ersteSpalte = 1
letzteSpalte = 15
kontrollSpalte = 16
ersteZeile = 2
letzteZeile = ActiveSheet.Cells(Rows.Count, kontrollSpalte).
End
(xlUp).Row
For
aktuellePruefZeile = ersteZeile
To
letzteZeile
For
aktuelleSpalte = ersteSpalte
To
letzteSpalte
zeilenInhalt = zeilenInhalt & Cells(aktuellePruefZeile, aktuelleSpalte)
Next
aktuelleSpalte
If
Len(zeilenInhalt) = 0
Then
Range(Cells(aktuelleKopierZeile, ersteSpalte), Cells(aktuelleKopierZeile, letzteSpalte)).Copy
Range(Cells(aktuellePruefZeile, ersteSpalte), Cells(aktuellePruefZeile, letzteSpalte)).PasteSpecial xlPasteAll
Application.CutCopyMode =
False
Else
aktuelleKopierZeile = aktuellePruefZeile
End
If
zeilenInhalt =
""
Next
aktuellePruefZeile
End
Sub