Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor
Download Beispiel-Arbeitsmappe

Thema

Jede zweite Spalte drucken

Gruppe

Bereich

Problem

Wie kann ich veranlassen, daß nur jede zweite Spalte gedruckt wird?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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