Office: Wie kann ich in Excel wertabhängig Zeilen ausblenden?

Hallo,

Ich benutzte Excel 2003 bzw. 2007 an einem anderen PC, ich habe eine Tabelle in der in Spalte F und G geprüft werden soll ob in der jeweiligen Zeile/Zelle ein Wert steht, wenn keine Wert in den beiden Zellen der Spalten F und G steht, dann soll diese Zeile automatisch ausgeblendet werden. Dies dürfte nur mit einem Macro gehen, fragt sich nur wie!

Also Wenn Wert in Spalte F UND G in Zeile 5-500 = 0 bzw. leer (nichts drin steht), dann Zeile Ausblenden (Hidden = True)

Vielleicht hat ja jemand eine Idee. Dankeschön für Eure Mühe
und viele Grüße
SpiritStar :-D

 

Hallo,

folgendes VBA-Makro leistet dies:

Code:

Public Sub AusblendenZeilen()
  Dim Zelle As Range, lztZl&, Zl&
  
  lztZl& = ActiveSheet.Columns("F:G").SpecialCells(xlCellTypeLastCell).Row
  
  For Zl& = 1 To lztZl&
    Set Zelle = Cells(Zl&, 6)
    Zelle.EntireRow.Hidden = IsEmpty(Zelle) And IsEmpty(Zelle.Offset(0, 1)) 
  Next Zl&
End Sub

Es ist in einem allgem. (Code)Modul zu speichern und kann zB. mit der Tastenkombination Alt+F8 aufgerufen werden.