PDA

Vollständige Version anzeigen : Zeilen durch Makrocode ausblenden


MHartl
02.08.2012, 13:43
Hallo!

Ich hab ein Problem. Und zwar habe ich eine Pivot-Tabelle.
Jetzt möchte ich, dass die Zeilen ausgeblendet werden, welche in der Spalte C den Wert "0" haben.
Kann mir jemand mit einem passenden Makro-Code weiterhelfen?

Vielen lieben Dank und freundliche Grüße
Matthias

jeder mann
04.08.2012, 09:18
Hallo, MHartl,

so vielleicht (bei mir beginnt die Pivottabelle in Zelle A3, bitte anpassen, wenn nötig):

Sub MHartl()

Dim rngZelle As Range

For Each rngZelle In Range("A3").CurrentRegion.Columns(3).Cells
If rngZelle.Value = 0 Then rngZelle.EntireRow.Hidden = True
Next rngZelle

End Sub