[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