Nach Autofilter nur sichtbare Zeilen ausdrucken
11.03.2005 14:10:21
Drazen
ich habe in einem Blatt cca 20000 Einträge. Nach setzen des Autofilters in Spalte F werden nur cca 20 Zeilen sichtbar(andere sind dann ausgeblendet). Wie kann ich jetzt diese sichtbaren Zeilen ausdrucken ohne dass mir 7 leere Blätter rausschiesst.(Gedruckt werden zwar nur die sichtbaren Zeilen aber es kommen 7 leere Blätter hinterher. Ich habe es mit folgendem Code von Herber probiert, klappt aber trotzdem nicht, da ich in Spalte A imer einen Eintrag habe:
Private Sub cmdAusdruck_Click()
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
ActiveSheet.DisplayAutomaticPageBreaks = False
iRowL = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountA(Rows(iRow)) = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintOut
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub
Wie kann man sowas klären?
Grüsse
Drazen