[Excel, VBA] Zeilenausblenden

Gepostet am: May 19, 2011 2:52:31 PM

Ich benötige öfters mal die Möglichkeit bestimmte Zeilen auszublenden, um nur eine bestimmte Anzahl von Ergebnissen anzuzeigen. Ich verwende dafür folgende Funktion:

Zeilenausblenden

Public Sub ZeilenAusblenden(StartZeile As Integer, AnzahlZeilenShow As Integer, maxZeilen As Integer)     Application.ScreenUpdating = False     Dim iTmp1 as Integer     Dim iTmp2 as Integer     Dim iTmp3 as Integer     iTmp1 = StartZeile + AnzahlZeilenShow - 1     iTmp2 = StartZeile + AnzahlZeilenShow     iTmp3 = StartZeile + maxZeilen     ActiveSheet.Rows(StartZeile & ":" & iTmp3).Hidden = False     ActiveSheet.Rows(StartZeile & ":" & iTmp1).Hidden = False     ActiveSheet.Rows(iTmp2 & ":" & iTmp3).Hidden = True     Application.ScreenUpdating = TrueEnd Sub

In Kombination mit der Worksheet_Change Funktion, kann man abhängig von einer Eingabe in eine Zelle, eine bestimmte Anzahl von Einträgen anzeigen.

Beispiel

Private Sub Worksheet_Change(ByVal Target As Range)     Set Target = Application.Intersect(Target, Range("E7"))     If Target Is Nothing Then Exit Sub     If Target = Range("E7") Then        Call ZeilenAusblenden(17, CInt(Range("E7").Value), 25)     End IfEnd Sub