Immer nur die neuesten nn Zeilen anzeigen

Aus Gründen der Übersichtlichkeit ist es mitunter hilfreich, dass nur die letzten (beispielsweise) 25 Zeilen einer Liste angezeigt werden. Kommt ein neuer Eintrag dazu, dann soll der zur Zeit oberste Sichtbare Eintrag der Liste ausgeblendet werden, natürlich aber nicht die Überschriften. Die Funktionalität soll also ähnlich wie bei einer Fixierung sein, nur dass die Zeilen durch scrollen nicht sichtbar werden. Folgender Code führt zum Ziel:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim lRow As Integer, anzVis As Long
   lRow = Cells(Rows.Count, 1).End(xlUp).Row
   anzVis = Range("A1:A" & lRow).SpecialCells(xlCellTypeVisible).Count
   If anzVis > 61 Then  'Wegen der Überschrift
      Target.Offset(-60, 0).EntireRow.Hidden = True
   End If
End Sub

▲ nach oben …