Hi Oliver,

nach kürzester Zeit die perfekte Antwort...
...das verdient meinen uneingeschränkten Respekt.

Vielen Dank funzt super!!!

Ist ein kleines Weihnachtsgeschenk!
Da ich "zwischen den Tagen" eine Menge Zeit sparen werde!!

Dir schöne Weihnachten und nochmals danke.

Gruß Ottmar!

Beim Testen bin ich jetzt drauf gekommen, daß noch eine Schaltfläche gut wäre und zwar wieder zurück und alle anzeigen lassen.
Anzeige wie vor dem Ausführen des 1. Makros.
Kann ich zwar auch oben im Autofilter machen, aber bei vielen Daten, muß ich dann immer ganz hochfahren bis ich (Alle) habe.

Gruß Ottmar

.... und sollte dann in der vorher aktiven Zelle stehen und nicht ganz oben in der Tabelle

Hallo Ottmar,

danke Dir für die Bewertung.

Nachfolgend 2 Makros, die das machen sollten, was Du Dir vorgestellt hast. Das Makro "Auofilter_aktive_Zelle" ist fast wie das aus AW1, nur musst ich dort die Zeilennummer und die Spaltenindexzahl der aktivierten Zelle in 2 Variablen schreiben, da diese gesicherten Werte benötigt werden, um nachher wieder die Zelle, nach der gefiltert wurde, zu markieren, falls diese bereits abgewählt wurde.
Mit dem Makro "Autofilter_zurück" wird der Filter wieder auf die Einstellung "Alle" gestellt und die Zelle, nach der vorher gefiltert wurde, wird wieder aktiviert. Sollte hier aus irgend einem Grund ein Fehler auftreten, weil z.B. die Variable für die Spalteindexzahl den Wert 0 enthält, wird die Spalte, nach der gefiltert wurde über eine Schleife ermittelt und dann wieder auf Einstellung "Alle" gestellt. Es wird dann aber nicht die Zelle, nach der gefiltert wurde, aktiviert.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

'Globale Variablen deklarieren. Global deswegen, damit man im gesamten VBA-Projekt _
 auf die Variablen und deren gespeicherten Werte zurückgreifen, um den aktuell _
 gespeicherten Wert zu ermitteln, kann.
Public iFilterRow As Integer
Public iFilterColumn As Integer

Sub Auofilter_aktive_Zelle()
'Aus der aktiven Zelle die Zeile ermitteln und in Variable "iFilterRow" schreiben
iFilterRow = ActiveCell.Row
'Aus der aktiven Zelle die Spalteindexzahl ermitteln und in Variable "iFilterRow" schreiben
iFilterColumn = ActiveCell.Column
'Wenn die aktuell markierte Zelle nicht leer ist, dann nach der Zelle filtern
If IsEmpty(ActiveCell) = False Then _
Range("A1:C" & Range("C65536").End(xlUp).Row).AutoFilter Field:=iFilterColumn, _
Criteria1:=Cells(iFilterRow, iFilterColumn)
End Sub

Sub Autofilter_zurück()
Dim iFilterColumnPrüf As Filter
'Bei Auftreten eines Fehlers, weil z.B. die Variable "iFilterColumn" den _
 Wert 0 enthält, zur Sprungmarke "Errorhandler" springen
On Error GoTo Errorhandler
'Autofilter auf Einstellung "Alle" stellen
Range("A1:C" & Range("C65536").End(xlUp).Row).AutoFilter Field:=iFilterColumn
'Zelle, nach der gefiltert wurde, markieren, Zeile und Spalte kommen aus den _
 beiden globalen Variablen "iFilterRow" und "iFilterColumn", die die _
 Zeilennummer und die Spaltennummer enthalten, die beim Ausführen des Makros _
 "Auofilter_aktive_Zelle" in diese Variablen geschrieben wurden
Cells(iFilterRow, iFilterColumn).Select
'Prozedur beenden
Exit Sub

'Sprungmarke "Errorhandler" definieren
Errorhandler:
'In Variable "iFilterColumn" den Wert 0 schreiben
iFilterColumn = 0
'Wenn Autofilter im aktuellen Tabellenblatt aktiviert wurde, dann...
If ActiveSheet.AutoFilterMode Then
    '...For/Each-Schleife starten um die Spalte, nach der gefiltert wurde, zu ermitteln
    For Each iFilterColumnPrüf In ActiveSheet.AutoFilter.Filters
        'Variable "iFilterColumn" um den Wert 1 erhöhen
        iFilterColumn = iFilterColumn + 1
        'Wenn es sich bei der Spalte, die aktuell durch die For/Each-Schleife angesprochen _
         wird, um die Spalte handelt, bei der die Eigenschaft auf "On" steht, da nach dieser _
         Spalte gefiltert wurde, dann...
        If iFilterColumnPrüf.On Then
            '...den Filter in dieser Spalte wieder auf "Alle" stellen
            Range("A1:C" & Range("C65536").End(xlUp).Row).AutoFilter Field:=iFilterColumn
        'Abfrage Ende
        End If
    'Nächsten Schleifendurchlauf starten
    Next
'Abfrage Ende
End If
End Sub
[/b]

Die Makros sehen optisch sehr gewaltig aus. Das hängt damit zusammen, dass ich jede Zeile des Makros auskommentiert habe, damit Du sehen kannst, was in welcher Zeile erledigt wird.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich. Ansonsten wünsche ich Dir ein schönes ruhiges Weihnachtsfest, welches ja jetzt nicht durch zu viel Arbeit geprägt ist, weil Du ja obige Makros hast. ;o)


MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

hätt nicht gedacht, dass es soviel Arbeit ist für dich und das am Hl.Abend.

Vielen herzlichen Dank!

Werde die Sache mal über die Feiertage austesten und dir dann nochmals berichten.

Ruhige Tage und Weihnachtsgrüsse nach Berlin!

Ottmar