Autofilter mit Zellihallt per Makro ausführen

Question

Hallo Zusammen!

Ich habe mal wieder ein kleines Problem!
Ich möchte per Filter Zeilen löschen.
Um den Filter per Makro zu bestücken, verwende ich folgenden Code:
...
Range("M2").Select
Selection.Copy
Selection.AutoFilter Field:=9, Criteria1:="<>35. KW", Operator:=xlAnd
...

In M2 steht das Kriterium (wechselnde KW) für den Filter. Und hier liegt das Problem!
Das Kopieren in den Filter wird nicht ausgeführt!

Fällt jemandem etwas dazu ein?

Gruss

handballplatin7

Answer 1

Hallo handballplatin7,

nicht verständlich Deine Frage. Was verstehst Du unter

Um den Filter per Makro zu bestücken

? Du willst, das anstelle

Criteria1:="<>35. KW"

und hier speziell "<>35. KW" der Wert aus Zelle M2 dort abgefragt werden soll?

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

Answer 2

Hallo Oliver!

Ja, das habe ich gemeint!


Gruss

Ines

Answer 3

Hallo Ines,

dann sollte

Selection.AutoFilter Field:=9, Criteria1:=Range("M2"), Operator:=xlAndreichen.

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

Answer 4

Hi!

Der Filter soll sein: entspricht nicht M2!
Wie muss ich das denn deklarieren?

Gruss
Ines

Answer 5

Hallo Ines,

sorry, "entspricht nicht" (<>), hatte ich übersehen. Jetzt aber richtig:

Selection.AutoFilter Field:=9, Criteria1:="<>" & Range("M2"), Operator:=xlAndMfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 6

Hallo Oliver!

Prima! Jetzt klappt es super!

Danke dafür!

Gruss
Ines