Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1524to1528
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

Inhalt Range/Spalte löschen wenn Zelle leer...?

Inhalt Range/Spalte löschen wenn Zelle leer...?
10.11.2016 17:21:15
Nilo
Moin zusammen,
könnt ihr mir bitte kurz helfen!?
Eine Tabelle
Wenn im Range D18:D517 eine Zelle leer ist
dann ClearContents der gesamten Zeile per Intersect.
Ich wollte das so versuchen aber irgendwie haut das nicht hin.
Was mach ich falsch?
On Error Resume Next
Intersect(Range("A:A, D:D, E:E; F:F"), Range("D18:D517").SpecialCells(xlCellTypeBlanks).EntireRow).ClearContents
On Error GoTo 0
Danke schon mal
Gruß
Nilo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt Range/Spalte löschen wenn Zelle leer...?
10.11.2016 17:31:59
Werner
Hallo Nilo,
Public Sub test()
Dim raBereich As Range
Dim raZelle As Range
Application.ScreenUpdating = False
Set raBereich = Sheets("Tabelle1").Range("D18:D517")
For Each raZelle In raBereich
If raZelle = "" Then raZelle.EntireRow.Delete
Next raZelle
Application.ScreenUpdating = True
End Sub
Gruß Werner
AW: entschuldige die späte Antwort! Besten Dank :)
15.11.2016 10:41:01
Nilo
...
Gruß
Nilo
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
15.11.2016 12:56:34
Werner
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige