Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wenn Leerzelle, dann Zeile löschen

Wenn Leerzelle, dann Zeile löschen
18.09.2006 08:20:07
Tom8
Hallo,
habe in Spalte B von Zeile 7 bis 50 etwas stehen, oder auch nicht. In den Zellen (B7:B50), welche leer sind, soll nach Buttonklick, die komplette Zeile gelöscht werden.
Danke im voraus
Tom

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Leerzelle, dann Zeile löschen
18.09.2006 08:23:10
Matthias
Hallo Tom,
so:

Sub LeerzeileLöschen()
Dim z As Long
For z = 50 To 7 Step -1
If Cells(z, 2) = "" Then Rows(z).Delete Shift:=xlUp
Next z
End Sub

GRuß Matthias
AW: Wenn Leerzelle, dann Zeile löschen
18.09.2006 18:24:24
Tom8
Vielen Dank
Gruss Tom
AW: Wenn Leerzelle, dann Zeile löschen
18.09.2006 08:25:16
Josef
Hallo Tom!
Z.B. so.
Sub Leerzeilen()

On Error Resume Next
Range("B7:B50").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

End Sub


Gruß Sepp

Anzeige
AW: Wenn Leerzelle, dann Zeile löschen
18.09.2006 18:26:15
Tom8
Vielen Dank
Gruss Tom

358 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige