ausblenden in denen am anfang in zelle a eine 0 steht
ActiveSheet.Range("A1").EntireRow.Hidden = Range("A1").Value = 0
dies wuerde fuer die erste zeile gelten nun habe ich aber keine lust diese
zeile fuer die naechsten 500 zeilen zu schreiben
ActiveSheet.Range("A1").EntireRow.Hidden = Range("A1").Value = 0
ActiveSheet.Range("A2").EntireRow.Hidden = Range("A2").Value = 0
ActiveSheet.Range("A3").EntireRow.Hidden = Range("A3").Value = 0
.
.
.
usw
wie kann ich mir die sache vereinfachen
vielen dank