Office: (Office 2010) Beim benutzen Dropdown gleich Autofilter

Bitte immer so ausführlich, wie nötig.

Im Filtrat selbst geht das nicht oder nur mit unerwünschten Klimmzügen.

Vermutlich meinst Du aber, dass die Autofilter-Zeile nicht in Zeile 1 stehen soll, sondern in Zeile 6. Dann sollte Zeile 5 leer sein, und Du müsstest das Makro entsprechend von A1 auf A6 ändern. Dann hast Du die ersten 4 Zeilen zur freien Verfügung.

 

Hi Jens,

in diesem Fall musst du den Bereich für den Filter konkret vorgeben und kannst nicht CurrentRegion verwenden - also z.B. so: Zeile 5 Spalte A bis letzte belegte Zeile Spalte A/letzte belegte Spalte in Zeile 5

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngLetzte As Long
    Dim intLetzte As Integer
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    intLetzte = IIf(IsEmpty(Cells(5, Columns.Count)), Cells(5, Columns.Count).End(xlToLeft).Column, Columns.Count)
    If Target.Address(False, False) = "I1" Then
        If Target <> "" Then
            If ActiveSheet.AutoFilterMode = False Then [COLOR=#ff0000]Range(Cells(5, 1), Cells(lngLetzte, intLetzte))[/COLOR].AutoFilter
            ActiveSheet.[COLOR=#ff0000]AutoFilter.Range[/COLOR].AutoFilter field:=3, Criteria1:=Target.Value
        Else
            If ActiveSheet.AutoFilterMode = True Then Range("A5").AutoFilter
        End If
    End If
End Sub

Bis später,
Karin

 

Hallo,
vielen dank für die Hilfe, klappt wunderbar.