Makros im Praxiseinsatz: Di... / 2.1 Jede zweite Zeile ausblenden

Im folgenden Beispiel wird in der aktiven Tabelle jede zweite Zeile ausgeblendet.

Sub JedeZweiteZeileAusblenden()
Dim lngZ As long
For lngZ = 1 To ActiveSheet.UsedRange.Rows.Count
If lngZ Mod 2 = 0 Then
  Rows(lngZ).EntireRow.Hidden = True
End If
Next lngZ
End Sub

Dieses Makro können Sie anpassen, wenn Sie beispielsweise nur jede dritte Zeile ausblenden möchten, indem Sie den Befehl lngZ Mod 2 = 1 durch den Befehl lngZ Mod 3 = 1 ersetzen. Die Funktion Mod gibt den Rest einer ganzzahligen Division zweier Zahlen zurück. Über die Variable lngZ wird die jeweilige Zeile dargestellt. Es wird also die jeweilige Zeilennummer (Rows(lngZ)) beispielsweise durch 3 geteilt. Bleibt ein Rest von 0 übrig, dann wird die komplette Zeile (=EntireRow) ausgeblendet (=Hidden). Mit der Anweisung ActiveSheet.UsedRange.Rows.Count wird übrigens die Anzahl der verwendeten Zeilen in einer Tabelle ermittelt.

Das ist nur ein Ausschnitt aus dem Produkt Controlling Office. Sie wollen mehr? Dann testen Sie hier live & unverbindlich Controlling Office 30 Minuten lang und lesen Sie den gesamten Artikel.


Meistgelesene beiträge