Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 20:08:47
Datum/Zeit in einer Zelle fixieren über Makros
17.05.2024 18:14:48
Aaaah! Tabelle erstellen mit Index
17.05.2024 17:37:33
letztes Zeichen in Zelle entfernen
17.05.2024 17:07:32
Problem bei Diagrammerstellung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1948to1952
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden wenn in einer Spalte der Wert 0 steht

Zeilen ausblenden wenn in einer Spalte der Wert 0 steht
23.10.2023 13:34:35
Sven Dittrich
Hallo Excel Profis,

Ich möchte gerne ganze Zeilen ausblenden wo in den einzelnen Spalten immer eine 0 ist.

In meiner Beispieldatei soll das Ziel sein das die Zeilen 6 und 9 ausgeblendet werden

https://www.herber.de/bbs/user/163659.xlsx

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

Betreff
Datum
Anwender
Anzeige
AW: eine einfache Möglichkeit wäre ...
23.10.2023 13:45:19
neopa C
Hallo Sven,

... summiere in einer Hilfsspalte (z.B in F) die Werte aus Spalte B_E und filtere diese Spalte nach 0 aus.

Gruß Werner
.. , - ...
AW: Zeilen ausblenden wenn in einer Spalte der Wert 0 steht
23.10.2023 14:34:36
GerdL
Moin Sven! 

Sub Unit()



    Dim Bereich As Range, Z As Long

    

    

    Set Bereich = Range("B4:E9")

    

    With Bereich

    

        .EntireRow.Hidden = False

        

        For Z = 1 To .Rows.Count

            If WorksheetFunction.CountIf(.Rows(Z), "0") = .Columns.Count Then .Rows(Z).EntireRow.Hidden = True

        Next

        

    End With

    

    Set Bereich = Nothing





End Sub


Gruß Gerd
Anzeige
AW: eine einfache Möglichkeit wäre ...
23.10.2023 14:11:14
Sven Dittrich
Hallo Werner,

Du hast mich auf eine gute Idee gebracht. Jetzt muss es mir nur noch gelingen das per Macro die Zeile wo in Spalte M eine 0 ist auszublenden wäre.

Mit einer direkten Ansprache klappt das , aber es muss bestimmt noch ein Trick geben wenn ich sehr viele Zeilen habe und diese nicht direkt ansprechen möchte .

Bisher läuft es so :

Sub ausblenden()

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("SuSa")

With sh
If .Range("M8").Value = "0" Then

.Rows("8:8").EntireRow.Hidden = True
End If
If .Range("M9").Value = "0" Then
.Rows("9:9").EntireRow.Hidden = True
End If
If .Range("M10").Value = "0" Then
.Rows("10:10").EntireRow.Hidden = True
End If

End With

Set sh = Nothing

End Sub


Anzeige
AW: eine einfache Möglichkeit wäre ...
23.10.2023 14:17:28
daniel
HI
ich würde da mit einer Hilfsspalte arbeiten und die Nullen zählen und dann in dieser Hilfsspalte filtern.
also sowas wie in F4: =ZählenWenn(B4:E4;">0")
und dann filtern in Spalte F nach "größer 0"

Gruß Daniel

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige