Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

SpezialFilter automatisieren...
#21
Hallo Jörg,

vielleicht reicht das schon aus:

Code:
= CriteriaRange:=Range("A1").CurrentRegion
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • Jockel
Antworten Top
#22
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?)...

Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#23
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
Gruß Atilla
Antworten Top
#24
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]
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#25
Hallo Jörg,

am Anfang des Codes noch diese Zeile:

Code:
Sheets("Auswertung").Range("A1").CurrentRegion.Clear
Gruß Atilla
Antworten Top
#26
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...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#27
Hi Jörg,

(23.07.2014, 10:01)Jockel schrieb: 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.
Antworten Top
#28
(23.07.2014, 11:16)Rabe schrieb: Hi Jörg,

(23.07.2014, 10:01)Jockel schrieb: 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...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#29
Hi Jörg,

(23.07.2014, 13:27)Jockel schrieb: 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.
Antworten Top
#30
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 Wink
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste