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

Zeile mit leerer Zelle löschen

Zeile mit leerer Zelle löschen
20.09.2004 17:09:27
Fabienne
Hallo!
Ich hab ne simple Frage:
Wie bringe ich es hin eine Zeile nicht nur zu löschen, wenn in der ersten Zelle (Bsp: A16) nichts drin steht, sondern auch wenn in der Zelle A (Bsp: A16) was drin steht, aber die Zelle B (B16) leer ist?
Wenn in A16 nichts drin steht:
Sub Leerzeilen_loeschen()
'Löschen von leeren Zellen 1"

Dim j As Double
Application.ScreenUpdating = False
For j = (i - 1) * 140 + 120 To 2 Step -1
If Cells(j, 1).Value = "" Then _
Cells(j, 1).EntireRow.Delete
Next j
Application.ScreenUpdating = True
Wenn in A16 was drin steht, aber in B16 nichts?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile mit leerer Zelle löschen
20.09.2004 17:19:09
Ingolf
Hallo Fabienne,
For s = 1 To "Anzahl Spalten in der Tabelle"
If Cells(j, s).Value="" then
Cells(j, s).EntireRow.Delete
Exit For
End If
Next s
Gruß Ingolf
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige