Zeilen löschen

Forumthread: Zeilen löschen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeilen löschen

Zeilen löschen

DieterG

Hallo zusammen,
brauche mal wieder Euere Hilfe!
Ich habe z.B. von: "C9:C20" einen Bereichsnamen vergeben. Jetzt möchte ich, wenn sich in diesen Bereich eine oder mehrere Leere Zellen befinden die komplette Zeile bzw. Zeilen mit den leeren Zellen per Makro löschen.
Danke schon mal im Vorraus
Freundliche Grüße
Dieter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zeilen löschen

Tino
AW: Zeilen löschen

DieterG

AW: Zeilen löschen

11.08.2011 13:50:41

Tino

Hallo,
für so wenige Zellen sollte dies ausreichen.


Sub Beispiel()
Dim n&
Application.ScreenUpdating = False
'evtl. Tabelle anpassen
With Sheets("Tabelle1").Range("Bereichsnamen")
For n = .Rows.Count To 1 Step -1
If .Cells(n, 1) = "" Then
.Cells(n, 1).EntireRow.Delete
End If
Next n
End With
Application.ScreenUpdating = True
End Sub

Beachte je nachdem wie Du den Namen für diesen Bereich vergeben hast,
dass sich dieser Bereich ändern kann.
Sollte dies nicht gewollt sein, evtl. den Bereich mittels =Indirekt() festlegen.
Gruß Tino

AW: Zeilen löschen

11.08.2011 14:26:50

DieterG

Hallo Tino,
genau so habe ich mir das vorgestellt!
Danke nochmal
Gruß
Dieter