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:
|
1 2 3 4 5 6 7 8 9 10 |
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 |