Office: (Office 2010) Spalte Filtern in VBA

Hallo zusammen

Ich habe eine kleine Tabelle mit 4 Spalten, wovon ich eine Spalte gerne über eine Schaltfläche filtern würde.

Spalte A und C können mit den Schaltflächen "Datum" und "Fälligkeit" nach Datum sortiert werden. Dies funktioniert soweit.
Spalte D möchte ich gerne Filtern. Entweder sollen alle Zeilen angezeigt werden oder aber nur die Zeilen mit "A" oder mit "I". Ich hab via Makro auch was in den VBA-Editor geschrieben, hab das Filtern aber nicht so hingekriegt, ohne dass die Pfeile des Filters jeweils wieder in der Tabelle eingeblendet werden.

Danke für die Hilfe
Grüsse Richard

:)

 

zeichne es mit dem Makrorecorder auf.

 

Das habe ich gemacht. Da ich aber zum Aufzeichnen über die Filterfunktion gehen muss, macht er dieses nachher auch wieder und die "Filterpfeile" werden in der Tabelle wieder eingeblendet. Das möchte ich jedoch mit einem entsprechenden Code umgehen.

 

Gut, dann musst Du ein anders Excel habe.
Lasse ich den Code laufe, sehe ich nicht das er über die Filterpfeile geht.
Da ich eine andere Version von Excel habe bin ich dann raus.

 

Was für ein Kerl,
Mehr als 14000 Beiträge, welche wenig hilfreich; lese ich nichts anderes als "Ich bin dann raus".

Meinst du so etwas Richard?
Code:

oder gekürzt.
Code:

 

Genau so funktionierts *Smilie

Kannst du mir sagen, wie ich die Zeile anpassen muss, wenn ich "A" UND "I" sehen will?

 

Falls du die Datei mal geöffnet hast und die Schaltflächen durchgedrückt hast, ist dir vielleicht aufgefallen, dass wenn die Tabelle nach Datum sortiert wird, das Datum "10.06.2015" zuoberst erscheint. Das sollte eigentlich nicht so sein. Im Filter ist dieses Datum auch separat aufgeführt. Wie kann ich das korrigieren?
Mit diesem Datum sind 2 Zeilen versehen, jedoch wird nur eine davon falsch sortiert. Beim Ursprung des Datums, in der Mappe "Firmen", erkenne ich aber keinen Unterschied!?

 

Für alle.
Code:

Zelle Firmen!M20 ist als Text formatiert.
Code:

 

Beim Code, damit wieder alles angezeigt wird, bekomm ich nun den "Laufzeitfehler '28': Nicht genügend Stapelspeicher."

Code:

Weiss nicht was ich damit anfangen soll!?

 

Die Zelle ist nun nicht mehr als Text formatiert, die Sortierreihenfolge wird aber immer noch falsch ausgeführt.
Wenn ich manuell im Filter nachschaue, ist dieses Datum einzeln aufgeführt. Wie kann ich es aus dem Filter löschen, dass danach richtig sortiert wird?

 

Hallo,

Man könnte die Zelle nicht nur von Text zum Datum wechsel mit format.
Setz eine 1 in eine beliebige Zelle.
Die Zelle mit der 1 kopieren.
Ins Zelle M20 Paste Special → Multiplizieren → OK und Enter.
Zelle M20 ändern, Datumsformat.

 

Hm. Komm da im Moment grad nicht weiter. Aber vielen Dank für deine Hilfe.