Ich habe eine Tabelle mit 60 Zeilen. Immer wenn ich eine neue Zeile hinzufüge, soll die erste Zeile (oberste Zeile) automatisch ausgeblendet werden. Hierfür habe ich folgenden Code verwendet:
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
Nun habe ich allerdings folgendes Problem: Wenn Ich die ausgeblendeten Zeilen wieder einblende, dann sollten diese nach Einfügen einer neuen Zeile, wieder ausgeblendet werden, so dass ich letztlich wieder nur 60 Zeilen angezeigt bekomme. Wer kann mir da weiterhelfen?
Gruß, Yilo.