Zellen ausblenden
18.09.2005 16:43:58
Basti
ich möchte einen ganz bestimmten Zellbereich ausblenden. Nach langem Rumprobieren ist leider nur folgender Code rausgekommen der natürlich nicht funktioniert:
Sub hidden()
Dim er, lz As Long
er = Range("b:b").Find("generelle Probleme").Select
lz = Range("d500").End(xlUp).Select
Range(Cells(er, "A"), Cells(lz, "G")).select
With selection
rows.hidden
End With
End Sub
Kann mir vielleicht jemand sagen wie es richtig geht
Gruß Basti
Anzeige