Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen zusammenrücken

Betrifft: Zellen zusammenrücken von: Derwich
Geschrieben am: 20.08.2008 12:58:07

Hallo zusammen,

wie kann ich , wenn jetzt in A1 bis A20 nur 5 Werte stehen, also zwischen den Werten freie Zellen sind,
zusammenrücken so das der 1. Wert in A1 und der 2.wert in A2 und so weiter steht (per makro)

Danke

  

Betrifft: AW: Zellen zusammenrücken von: Tobias
Geschrieben am: 20.08.2008 13:16:11

Hallo Derwich!
Bist Du sicher, dass das nicht schon einmal jemand gefragt hat?

Sub LeereZellenLöschen()
    Dim rng As Range
    Set rng = Range("A1:A20")

    For i = rng.Row + rng.Rows.Count - 1 To rng.Row Step -1
        If IsEmpty(rng(i, 1)) Then rng(i, 1).delete Shift:=xlUp
    Next
End Sub

Code eingefügt mit Syntaxhighlighter 4.15


Schönen Gruß, Tobi
http://vba-blog.de/


  

Betrifft: AW: Zellen zusammenrücken - noch kürzer von: Tobias
Geschrieben am: 20.08.2008 13:28:14

Und wenn man die entsprechenden Artikel liest findet man eine noch kürzere Version:


Sub LeereZellenLöschen2()
    Dim rng As Range
    Set rng = Range("A1:A20")
    rng.SpecialCells(xlCellTypeBlanks).delete shift:=xlUp
End Sub

Code eingefügt mit Syntaxhighlighter 4.15


Schönen Gruß, Tobi
http://vba-blog.de/


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen zusammenrücken"