Leerzeilen füllen VBA

Bild

Betrifft: Leerzeilen füllen VBA
von: Stefan
Geschrieben am: 21.09.2015 10:39:12

Hallo
ich habe folgenden Code der ganz gut funzt.


Sub Leerzellen()
    Dim Bereich As Range, Zelle As Range
    Set Bereich = Range("A2:A180")
    For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
        Zelle = Zelle.Offset(-1, 0)
    Next Zelle
End Sub


kann ich jenen so Erweitern das er nur dort ausgeführt wird wo in Spalte z.B. e2:E180 etwas eingetragen ist.
LG Stefan

Bild

Betrifft: AW: Leerzeilen füllen VBA
von: Rudi Maintaire
Geschrieben am: 21.09.2015 10:51:32
Hallo,

if zelle.offset(,4)<>"" then
zelle=zelle.offset(-1)
end if
Gruß
Rudi

Bild

Betrifft: AW: Leerzeilen füllen VBA
von: Daniel
Geschrieben am: 21.09.2015 10:54:42
Hi
wenn in Spalte E manuelle Einträge stehen (keine Formeln:)

Dim BereichA as range
dim BereichE as range
set BereichA = Range("A2:A180").SpecialCells(xlcelltypeblanks)
set BereichB = Range("E2:E180").SpecialCells(xlcelltypeconstants, 3)
For each Zelle in Intersect(BereichA, BereichE.EntireRow)
...
Gruß Daniel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Leerzeilen füllen VBA"