VBA-Programmierung in Microsoft Excel

Jede zweite Zeile mit 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

    

Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt