SpezialFilter automatisieren...

[atilla]

Hallo Jörg,

vielleicht reicht das schon aus:

Code:

= CriteriaRange:=Range("A1").CurrentRegion

[Jockel]

Hallo Atilla, ich kriege nur Mecker... ich denke: ich verschlimmbessere... , weil ich doch keine Ahnung von VBA habe (zudem müßte doch das TabellenBlatt irgendwie dabei... oder?)...

[atilla]

Hallo Jörg,

angenommen Dein Kriterienbereich befindet sich im Blatt "Kriterien",
dann müsste Dein anfangs eingestellter Code so angepasst werden:

Code:

Range("Listenbereich").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Kriterien").Range("A1").CurrentRegion, _
CopyToRange:=Range("F1:G1"), Unique:=False

[Jockel]

Hallo Atilla, es funzt (so kann ich sagen, nach einigen Tests)... :15: toll... ... eine kleine Frage noch...

Der Code sieht (nun) so aus..:

Code:

Sub test()
'
' test Makro

'
    Sheets("Umsaetze").Range("Tabelle1[#All]").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Sheets("Kriterien").Range("A1").CurrentRegion, CopyToRange _
        :=Sheets("Auswertung").Range("A1"), Unique:=False
End Sub

Ich glaube der Bereich in Auswertung, der muss noch bevor das Makro gestartet wird geleert werden. Wie kriegt man das auch noch hin..?

Code strukturiert dargestellt durch 3. Button von rechts im Beitragsformular: #
Moderator [Bild: smilie.php?smile_ID=1810]

[atilla]

Hallo Jörg,

am Anfang des Codes noch diese Zeile:

Code:

Sheets("Auswertung").Range("A1").CurrentRegion.Clear

[Jockel]

Hallo Atilla, passt perfekt. Danke..!!! Zwei bis sieben Bierchen :15: aufm Treffen sind Dir sicher...



Jetzt brauche ich nur noch kleinere kosmetische Dinge erledigen... ... z.B. aus einem KriterienBereich auswählen... ... es gibt mehrere UmsatzBlätter... (die vom Aufbau her gleich sind)... oder später (sehr viel später alle zusammenfassen, alle Daten (aus allen UmsatzBlättern) untereinander mit ner Zeile dazwischen, aber letzteres ist Zukunftsmusik...

Vielen Dank...

[Rabe]

Hi Jörg,

oder später (sehr viel später alle zusammenfassen, alle Daten (aus allen UmsatzBlättern) untereinander mit ner Zeile dazwischen, aber letzteres ist Zukunftsmusik...

ich glaube, das ist nicht so geschickt, da Du dann leere Zeilen hast, dadurch wird die Funktion (?) CurrentRegion nur bis zur ersten folgenden Leerzeile gehen.

[Jockel]

Hi Jörg,

oder später (sehr viel später alle zusammenfassen, alle Daten (aus allen UmsatzBlättern) untereinander mit ner Zeile dazwischen, aber letzteres ist Zukunftsmusik...

ich glaube, das ist nicht so geschickt, da Du dann leere Zeilen hast, dadurch wird die Funktion (?) CurrentRegion nur bis zur ersten folgenden Leerzeile gehen.

Ach Ralf, ich habe mich wahrscheinlich im Überschwang der Gefühle hinreißen lassen, mich mißverständlich auszudrücken...!!! Das, was Du zitierst bezog sich auf die Auswertung im Blatt Auswertung...

[Rabe]

Hi Jörg,

Ach Ralf, ich habe mich wahrscheinlich im Überschwang der Gefühle hinreißen lassen, mich mißverständlich auszudrücken...!!! Das, was Du zitierst bezog sich auf die Auswertung im Blatt Auswertung...

ok, da geht das natürlich. Jetzt habe ich es auch verstanden.

[schauan]

Hallöchen,

wenn allerdings bei den Kriterien zwischen A1 und dem ersten Eintrag "Luft" ist, dann klappt es mit CurrentRegion nicht.

Hat der Bereich Überschriften und der erste Eintrag steht z.B. in K2, dann passt es.

Hat der Bereich keine Überschriften - dann dürfte der Spezialfilter nicht klappen, aber mal für die Theorie von CurrentRegion - die bleibt dann bei A1. Zwischen der Zelle mit Eintrag - hier mal K2 - und der programmierten Zelle - hier A1 - muss eine Verbindung ohne Lücken sein, wobei man Zickzack laufen darf und auch diagonal