Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

drucken mit Autofilter mit allen Kriterien

drucken mit Autofilter mit allen Kriterien
Joni
Hi,
hat jemand vielleicht schon einmal ein Makro geschrieben, das mit dem Autofilter den ersten Wert auswählt, dann das Blatt druckt, dann den 2. Wert auswählt, druckt, dann den 3. usw. bis alle Werte im Filter durch sind (inkl. leer aber ohne nicht leer).
Das würde mir den Ablauf etwas erleichtern.
Danke
Gruß Joni

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: drucken mit Autofilter mit allen Kriterien
03.11.2009 12:44:38
Klaus
Hallo Joni,
filtert nacheinander Spalte A:
Option Explicit
Sub FilterAndPrint()
Dim ItemList As Variant, i As Integer
ThisWorkbook.Activate
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
FindUniqueItems ItemList, "DataList"
ActiveSheet.Range("DataList").AutoFilter
For i = 1 To UBound(ItemList)
ActiveSheet.Range("DataList").AutoFilter 1, ItemList(i)
Application.StatusBar = "Printing report for " & ItemList(i)
'ActiveSheet.PrintOut ' commented out for demonstration purposes
ActiveSheet.PrintPreview ' comment out this line for proper use
Next i
Application.StatusBar = False
ActiveSheet.ShowAllData
End Sub
Private Sub FindUniqueItems(UniqueItems As Variant, FilterRange As String)
' returns a list containing all unique items in the filter range
Dim TempList() As String, UniqueCount As Integer, cl As Range, i As Integer
Range(FilterRange).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
UniqueCount = Range(FilterRange).SpecialCells(xlCellTypeVisible).Count
ReDim TempList(1 To UniqueCount - 1)
i = 0
For Each cl In Range(FilterRange).SpecialCells(xlCellTypeVisible)
i = i + 1
If i > 1 Then TempList(i - 1) = cl.Formula ' ignore the heading
Next cl
Set cl = Nothing
UniqueItems = TempList
End Sub
Gruß
Klaus
Anzeige
AW: drucken mit Autofilter mit allen Kriterien
03.11.2009 12:59:32
Joni
Hallo Klaus,
ich werde das mal probieren.
Was mir auf die Schnelle nicht aufgefallen ist, wo der Filterbereich definiert wird. Ich filtere ab Zeile 5 die Spalten A bis M. Die Anzahl der Zeilen ist unterschiedlich. Die Spalte F ist das Kriterium nach dem ich ausdrucken möchte. Der Filter sollte aber auf den Spalten A bis M bleiben (z. B. um Voreinstellungen machen zu können um dann nur noch die gefilterten Werte aus F zu erhalten).
Danke
Gruß Joni

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige