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: