| Arbeitsblatt mit dem Namen 'Tabelle1' | |||||
| A | B | C | D | E | |
| 1 | Ausgangstabelle | ||||
| 2 | |||||
| 3 | Wert1 | Wert2 | Wert3 | Wert4 | Wert5 |
| 4 | 15 | 3 | kkk | 12 | a |
| 5 | 15 | 4 | 12 | 13 | s |
| 6 | 45 | 3 | kkk | 15 | a |
| 7 | abc | 4711 | 12 | 2 | a |
| 8 | |||||
| 9 | |||||
| 10 | gefilterte Tabelle | ||||
| 11 | |||||
| 12 | Wert1 | Wert2 | Wert3 | Wert4 | Wert5 |
| 14 | 15 | 4 | 12 | 13 | s |
| 16 | abc | 4711 | 12 | 2 | a |
| 17 | |||||
| 18 | |||||
| Zelle | bedingte Formatierung... | Format |
| A12 | 1: =AF_Krit(A$13)>"" | abc |
| B12 | 1: =AF_Krit(B$13)>"" | abc |
| C12 | 1: =AF_Krit(C$13)>"" | abc |
| D12 | 1: =AF_Krit(D$13)>"" | abc |
| E12 | 1: =AF_Krit(E$13)>"" | abc |
| Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg |
Public Function AF_KRIT(Bereich As Range) As String
'Liest die Kriterien des Autofilters aus und listet diese in einer Zelle
'Als Bezug dient die erste Zelle nach dem Spaltentitel: AF_KRIT(A2)
Dim s_Filter As String
s_Filter = ""
On Error GoTo Ende
With Bereich.Parent.AutoFilter
With .Filters(Bereich.Column - .Range.Column + 1)
s_Filter = .Criteria1
Select Case .Operator
Case xlAnd
s_Filter = s_Filter & " UND " & .Criteria2
Case xlOr
s_Filter = s_Filter & " ODER " & .Criteria2
End Select
End With
End With
Ende:
AF_KRIT = s_Filter
End Function