würde gern alle Zellen ausblenden, wo nichts geschrieben ist.
Das heißt von Zelle B11:B255 sind werte vorhanden, so soll ab B256 alle Spalten bis 65500 ? ausgeblendet werden.
Mfg Peter
Dim zelle
Sub ausblenden()
zelle = Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("Tabelle1").Rows(zelle & ":65536").EntireRow.Hidden = True
End Sub
Gruss Hary
Sub Ausblenden()
Range(Cells(Cells.Rows.Count, 2).End(xlUp).Offset(1, 0), Cells(Rows.Count, 2)).EntireRow.Hidden _
= True
End Sub
Gruß
Uwe
(:o)