Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Nur Zeilen mit einer "2" drucken

Gruppe

Bereich

Problem

Wie kann ich veranlassen, daß nur die Zeilen gedruckt werden, die in spalte A eine 2 enthalten?

Lösung

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

StandardModule: basMain

Sub Drucken()
   Dim iRow As Integer, iRowL As Integer
   Application.ScreenUpdating = False
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Cells(iRow, 1) <> 2 Then
         Rows(iRow).Hidden = True
      End If
   Next iRow
   ActiveSheet.PrintPreview
   Rows.Hidden = False
   Application.ScreenUpdating = True
End Sub