Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1652to1656
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

Ganze Zeile ausblenden bei leerem Bereich in Zeile

Ganze Zeile ausblenden bei leerem Bereich in Zeile
22.10.2018 11:12:46
Bucki
Hallo,
ich möchte in meiner Datei die ganze Zeile ausblenden oder löschen, wenn alle Zellen im Bereich E bis N der Zeile leer oder Wert=0 sind.
Es kann halt sein, dass im Bereich nur in Zelle J der Zeile etwas drin steht. Dann muss die ganze Spalte bleiben.
Das Tabellenblatt, auf das ich das Makro anwenden will, hat 6.600 Zeilen.

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

Betreff
Datum
Anwender
Anzeige
AW: Ganze Zeile ausblenden bei leerem Bereich in Zeile
22.10.2018 11:26:14
Daniel
Hi
with ActiveSheet.usedrange
With .Columns(.Column.count + 1)
.FormulaR1C1 = "=IF((CountIF(RC5:RC14,"""")-CountIF(RC5:RC14,0))=0,0,Row())
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates
.ClearContents
end with
end with
Gruß Daniel
AW: Ganze Zeile ausblenden bei leerem Bereich in Zeile
22.10.2018 11:39:51
Bucki
Hallo Daniel,
der Code sieht jetzt, wie folgt, aus:
Sub leeren()
With ActiveSheet.UsedRange
With .Columns(.Column.Count + 1)
.FormulaR1C1 = "=IF((CountIF(RC5:RC14,"""")-CountIF(RC5:RC14,0))=0,0,Row())"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates
.ClearContents
End With
End With
End Sub
Jetzt ist ein Objekt erforderlich.
Gruß Bucki
Anzeige
AW: Ganze Zeile ausblenden bei leerem Bereich in Zeile
22.10.2018 11:42:06
Daniel
columns.count

105 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige