habe diesen Teulcode hier gefunden, habe ihn bei mir eingefügt, möchte aber erreichen das die erste freie Zelle Weiss angezeigt wird und die Höhe 60 Ist ungefähr.
'ausblenden
zelle = Cells(Rows.Count, 2).End(xlUp).Row + 2
Sheets("Abgang").Rows(zelle & ":65536").EntireRow.Hidden = True
Lieben Gruß Angela