Gruppe
Feature
Problem
Wie kann ich jede zweite Zeile mit einer Hintergrundfarbe belegen?
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