Anzeigen von Filterkriterien auf einem Ausdruck (Microsoft Excel)
Microsoft Excel enthält einige großartige Tools, mit denen Sie große Datentabellen filtern können, um nur die Informationen anzuzeigen, die angezeigt werden sollen. Tatsächlich können Sie mit den Filtern Ihre Daten „in Scheiben schneiden und würfeln“, bis Sie genau das bekommen, was Sie wollen.
Wenn Sie gefilterte Daten ausdrucken, möchten Sie möglicherweise wissen, wie die Originaldaten in Scheiben geschnitten und in Würfel geschnitten wurden. Es gibt verschiedene Möglichkeiten, wie Sie Ihre Filterkriterien anzeigen können. Eine einfache Möglichkeit besteht darin, die erweiterten Filterfunktionen von Excel zu verwenden, für die Sie eine kleine Kriterientabelle für Ihre Daten einrichten müssen. Wenn die Kriterientabelle Teil des Druckvorgangs ist, können Sie Ihre Filterkriterien ganz einfach anzeigen.
Wenn Sie AutoFilter verwenden, müssen Sie einen anderen Ansatz verwenden. Ein solcher Ansatz wird bei John Walkenbach detailliert beschrieben:
http://j-walk.com/ss/excel/usertips/tip044.htm
Diese Lösung verwendet eine benutzerdefinierte Funktion, um alle in der aktuellen Spalte verwendeten Filterkriterien zurückzugeben. Die Funktion kann in einer Zelle in dieser Spalte verwendet werden, um die Kriterien anzuzeigen. Wenn Sie die erweiterte Filterung verwenden, ist der Makroansatz etwas komplexer. Die folgenden Makros (es gibt zwei davon in der Liste) untersuchen, welche erweiterten Kriterien im Spiel sind, und platzieren die Kriterien dann im linken Teil der Kopfzeile.
Sub AddFilterCriteria() Dim strCriteria As String strCriteria = FilterCriteria() If strCriteria = "" Then strCriteria = "No Filtering Criteria" Else strCriteria = "Filter Criteria:" & Chr(10) & strCriteria End If ' add Criteria string to Header/Footer With ActiveSheet.PageSetup .LeftHeader = strCriteria End With End Sub Function FilterCriteria() As String Dim rngCriteria As Range, col As Range, cel As Range Dim strCriteria As String, r As Integer, c As Integer Const strCriteriaRange As String = "Criteria" FilterCriteria = "" On Error Resume Next 'Set Criteria-Range reference Set rngCriteria = Range(strCriteriaRange) If Err <> 0 Then Exit Function On Error GoTo 0 ' Create Criteria String c = 0 For Each col In rngCriteria.Columns c = c + 1 ' CriteriaRange Columns r = 1 ' CriteriaRange Rows For Each cel In col.Cells If r = 1 Then strCriteria = strCriteria & "Criteria" _ & c & " (" & cel.Value & ") = " Else strCriteria = strCriteria & "'" & cel.Value & "'" If IsEmpty(cel.Offset(1, 0)) Then 'Add New row Char if not Last Criteria Column If c < rngCriteria.Columns.Count Then strCriteria = strCriteria & Chr(10) End If Exit For End If strCriteria = strCriteria & " " End If r = r + 1 Next cel ' next criteria row Next col ' next criteria column FilterCriteria = strCriteria End Function
Um das Makro zu verwenden, führen Sie einfach das AddFilterCriteria-Makro aus, nachdem Sie Ihre erweiterte Filterung eingerichtet haben. Das Makro liest die Kriterientabelle und fügt die Kriterien zu einer Zeichenfolge zusammen, die in der linken Kopfzeile platziert wird.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (11649) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.
Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: