Immer nur die neuesten nn Zeilen anzeigen

Aus Grün­den der Über­sichtlichkeit ist es mitunter hil­fre­ich, dass nur die let­zten (beispiel­sweise) 25 Zeilen ein­er Liste angezeigt wer­den. Kommt ein neuer Ein­trag dazu, dann soll der zur Zeit ober­ste Sicht­bare Ein­trag der Liste aus­ge­blendet wer­den, natür­lich aber nicht die Über­schriften. Die Funk­tion­al­ität soll also ähn­lich wie bei ein­er Fix­ierung sein, nur dass die Zeilen durch scrollen nicht sicht­bar wer­den. Fol­gen­der 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 …