Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 16:19:36
20.05.2025 15:34:36
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen zusammenrücken

Zellen zusammenrücken
20.08.2008 12:58:00
Derwich
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen zusammenrücken
20.08.2008 13:16:00
Tobias
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
Schönen Gruß, Tobi
http://vba-blog.de/

Anzeige
AW: Zellen zusammenrücken - noch kürzer
20.08.2008 13:28:14
Tobias
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
Schönen Gruß, Tobi
http://vba-blog.de/
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige