Gruppe
Feature
Bereich
Bedingt
Thema
Jede zweite Zeile mit Hintergrundfarbe belegen
Problem
Wie kann ich jede zweite Zeile mit einer Hintergrundfarbe belegen?
Lösung
Formel für die bedingte Formatierung: =REST(ZEILE();2)=1
StandardModule: Modul2
Sub SpaltenDrucken()
Dim iCol As Integer
Application.ScreenUpdating = False
For iCol = 1 To ActiveSheet.UsedRange.Columns.Count
If iCol Mod 2 <> 0 Then Columns(iCol).Hidden = True
Next iCol
ActiveSheet.PrintPreview
ActiveSheet.Columns.Hidden = False
Application.ScreenUpdating = True
End Sub