Makro zum Ausblenden von Zeilen



Excel-Version: 2000
nach unten

Betrifft: Makro zum Ausblenden von Zeilen
von: Edith
Geschrieben am: 10.04.2002 - 15:04:21

Hallo,
mit welchem Makro kann ich Zeilen (die das Kriterium Summe = 0 erfüllen)eines markierten Bereichs ausblenden.

Güße
Edith


nach oben   nach unten

Re: Makro zum Ausblenden von Zeilen
von: @lex
Geschrieben am: 10.04.2002 - 15:25:00

Hi Edith !

Teste mal folgenden Code:


Sub Ausblenden_bei_Null()
Dim intRow, intCount As Integer
intRow = Cells(Rows.Count, 1).End(xlUp).Row
For intCount = 1 To intRow
If WorksheetFunction.Sum(Rows(intCount)) = 0 Then Rows(intCount).Hidden = True
Next intCount
End Sub

VG,
Alex

nach oben   nach unten

Re: Makro zum Ausblenden von Zeilen
von: Martin Beck
Geschrieben am: 10.04.2002 - 15:38:05

Hallo Edith,

unter der Annahme, daß im markierten Bereich nur Zahlen und leere Zellen vorkommen:


Sub filtern()
x = 0

For Each r In Selection.Rows
    For Each c In r.Cells
        x = x + c
    Next
    If x = 0 Then
        r.Hidden = True
    End If
    x = 0
Next

End Sub

Gruß
Martin Beck

nach oben   nach unten

An Martin Beck: Makro zum Ausblenden von Zeilen
von: nico
Geschrieben am: 10.04.2002 - 16:58:57

Hallo Martin,

wie sieht das Makro zu Ausblenden von Zeilen aus wenn ich alle leeren Zellen ausgeblendet und nur Text stehen lassen möchte?

Habe in diesem Fall nur eine Spalte mit eMailadressen und dazwischen leere Zeilen, sonst ist die Tabelle leer.

Danke für Deine Hilfe!

Grüsse

NICO


nach oben   nach unten

Re: An Martin Beck: Makro zum Ausblenden von Zeilen
von: Martin Beck
Geschrieben am: 10.04.2002 - 17:26:45

Hallo Nico,

dann wird das ganze zum Einzeiler. Für Spalte A:


Sub ausblenden()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Gruß
Martin Beck

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro zum Ausblenden von Zeilen"