Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leere Zeilen aus bestimmtem Bereich löschen

Leere Zeilen aus bestimmtem Bereich löschen
Wolfgang
Hallo, liebe Excel-Experten !
Ich stehe mal wieder mit einem VBA-Problem auf dem Schlauch.
Im Forum und im Internet habe ich bisher keine Lösung für dieses Problem gefunden.
Im Rahmen eines laufenden VBA-Makros möchte ich im fest definierten Bereich A1 bis C10
alle leeren Zeilen löschen.
Das bedeutet, in den Spalten A bis C sind verschieden lange Einträge.
Nur wenn sowohl in spalte A, B und C, also in der gesamten Zeile des Bereiches
kein Eintrag vorhanden ist, soll die gesamte Zeile gelöscht und der darunterliegende Bereich
zeilenweise nach oben verschoben werden.
Mein Ziel ist es, diesen Tabellenbereich möglichst optimal zu komprimieren, ohne das Zeilen,
in denen Einträge vorhanden sind, gelöscht werden.
A1 B1 C1
A2 B2 C2
A4 B4 C4
B5 C5
A6 B6 C6
A7 B7 C7
A8 C8
A10 B10 C10
Die Lösungsansätze, die ich bisher fand, durchsuchen entweder nur eine Spalte oder
gehen bis an das Tabellenende, statt wie hier nur bis zur 10. Zeile.
Ich bitte freundlich um Unterstützung und wünsche ein schönes Wochenende !
Viele Grüße
Wolfgang

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

Betreff
Benutzer
Anzeige
AW: Leere Zeilen aus bestimmtem Bereich löschen
18.06.2010 16:33:56
Beate
Hallo Wolfgang,
Sub Leerzeilen_loeschen()
    'im Bereich A1:C10
    Dim i As Long ' Zeilenzähler
    Application.ScreenUpdating = False ' Bildschirmausgaben abschalten
    For i = 10 To 1 Step -1 'ab Zeile 10 aufwärts Prüfung bis Zeile 1
        If (Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 3))) = 0) Then Rows(i).Delete
        If i Mod 100 = 0 Then Application.StatusBar = i
    Next i
    Application.StatusBar = False ' Statuszeile wieder ans Excel zurückgeben
    Application.ScreenUpdating = True ' Bildschirmausgaben einschalten
End Sub

Gruß,
Beate
Anzeige
AW: Leere Zeilen aus bestimmtem Bereich löschen
18.06.2010 16:51:25
Wolfgang
Hallo Beate !
Danke für die schnelle Rückantwort.
Ich habe es eben getestet - Das ist genau, was ich gesucht habe !
Vielen Dank nochmal und ein besonders schönes Wochenende !
(Trotz der Schlappe beim WM-Spiel ;-)
Gruß
Wolfgang

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige