VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Jede zweite Zeile mit Hintergrundfarbe belegen

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

    


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