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?


Meistgelesene beiträge