Office: Autofilter per VBA aus anderer Arbeitsmappe steuern

Hallo zusammen,

als Makro Aufzeichner und Umschreiber *mrcool habe ich folgende Frage:
Es wird ein Autofilter per Makro gesetzt und aus einer Zelle (A1) vorgegeben.

Wie muss der Befehl angegeben werden wenn ich das Kriterium
1. in einer anderen Arbeitsmappe vorgebe
2. auf einem anderen Tabellenblatt vorgebe

z.Z. befindet sich das Kriterium auf dem gleichen Tabellenblatt wo gefiltert wird:
>> Range("A1").Select Range("A1").Select

:)

 

Hi,

versuche es mal so (ungetestet):

Code:

 

Danke für deine Antwort Beverly,

leider macht dein Code nicht das was ich möchte.

Mein Code funktioniert soweit. Mir fehlt nur die Fachkenntniss wie ich in der Befehlszeile "Range("A1").Select" das Filterkriterium auf ein anderes Tabellenblatt bzw. eine andere Arbeitsmappe verweisen kann.

Ich muss aus mehreren Excelsheets Daten filtern und diese in einer neuen Arbeitsmappe zusammenstellen. Die Filterkriterien möchte ich in einer Tabelle der neuen Arbeitsmappe vorgeben.

z.B. soll in meinem Makro in der anderen Arbeitmappe der Autofilter aktiviert und dann mit Vorgabe des neuen Excelsheets gefiltert werden.

??? Befehl("Andere Arbeitsmappe") Select., Sheets("Vorgabeblatt").Select, Range("A1").Select???
Ich weiß nicht wie die Hierachie bzw. Befehlstrennung anzulegen ist.

Danke und Grüße Wiesel

 

Hi,

dass der Code nicht das gewünschte Ergebnis bringt liegt daran, dass ich deine Arbeitsmappe nicht kenne und ihn somit nicht testen kann. Lade die Mappe hoch und dann kann ich es nachvollziehen.

Auf Select kann zu 99% aller Fälle verzichtet werden.

 

Guten Morgen,

ich habe dir 2 Dateien fertig gemacht.
1. Steuerungs - und Auswerte Datei + Beschreibung was das Makro machen soll.
2. Datendatei als Datenstamm wo gefiltert und rauskopiert werden soll.

Wichtig ist mir der Grundcode, den Rest passe ich mir dann selbst an.
Ich muss aus vielen gleich aufgebauten Tabellen Daten zusammentragen jeweils als Monatsauswertung.

Danke und Grüße Wiesel

 

Hi,

nach diesem Prinzip:

Code:

Angaben der Filterkriterien wie folgt:

Steuerungsblatt

	C	D	E	F
4		Filterkriterien für Tabellenblatt Übersicht
5	Datei	Spalte1	Spalte2	Spalte3
6	Daten1	C	April	100000

verbundene Zellen

D4:F4

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 17.25 einschl. 64 Bit

Spalte A wird gefiltert nach D6 & * - also "beginnt mit" als Filterkriterium. Anstelle Monatsname in E6 kann Zahl stehen. Da keine Angabe des Jahres, geht der Code für das Filtern in Spalte B vom aktuellen Jahr aus. Spalte C wird gefiltert nach >= dem Wert in F6

 

Servus,

ich habe den mittleren Befehl
dblFilter3 = Range("F6") in strFilter3 = Range("F6") umgeschrieben.

Jetzt filtert der Code und kopiert auch alles rüber *Smilie .

1000 Thx. dafür. Allerdings brauch ich wohl noch etwas um den Code zu durchschauen. Deshalb sind meine Markos noch etwas einfacher konstruiert. Lach.

Danke für deine Mühe sagt Wiesel

 

Weshalb? Vorher, in meiner Version als dblFilter3 hat er auch richtig gefiltert. Ich hatte dazu extra einen Hinweis ganz unten in meinem Beitrag geschrieben.

 

Ja das hab ich gelesen, aber so kopiert mir das Makro nur die Überschrift "Typ" rüber zur Auswertung und sonst nix.

Mit "str" auch alle anderen gefilterten Zellen. Keine Ahnung warum.
Hab das nur umgeschrieben als es nicht ging. Bin ja Laie *Smilie ...

Frage: Welche Befehlszeile muss ich einfügen damit er mir vor einfügen der gefilterten Werte die alten Tabellenwerte löscht?

Wie gesagt ich zeichne sonst nur auf und bastel dann immer den Code um...

Grüße Wiesel

 

So sieht das Ergebnis aus, welches in der von mir hochgeladenen Arbeitsmappe nach dem Filtern in Daten1 kopiert wird:

Daten1

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	Typ	Datum	Nr	x	x	x	x	x	x	x	x	x	x	x	x
2	C-CYX	02.04.2014	800000	1	1	4	5	6	7	8	9	10	11	12	13
3	C-CYX	03.04.2014	400000	1	1	5	6	6	7	8	9	11	11	12	13
4	C-CYX	18.04.2014	300000	1	1	8	9	6	7	8	9	14	11	12	13
5	C-CYX	05.04.2014	3000000	1	1	10	11	6	7	8	9	16	11	12	13
6	C-CYX	20.04.2014	40000000	1	1	14	15	6	7	8	9	20	11	12	13

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 17.25 einschl. 64 Bit

Ich nehme an, dass deine Zellen als Text formatiert sind (was bei Zahlen sicher nicht sehr sinnvoll ist). Das findest du mit dieser Formel heraus =TYP(E6) - bei Ergebnis 2 ist es Text.

Code:

 

Hallo,

Die Kriterienspalte "Beginnt mit C" im Steuerblatt war als Text formatiert.
Jetzt funktioniert auch dbl. *Smilie

Den Löschbefehl hab ich in den Code nicht eingebunden bekommen.
Ich habe dafür ein neues Modul angelegt als Löschmodul.
So ist es auch besser geordnet.
Und noch ein Hauptmakro zum steuern mit Call Befehl...

Na so langsam wirds was... Danke nochmal für deine schnelle Hilfe...

Grüße Wiesel *wink.gif*

 

Hi,

auch wenn du mit deiner jetzten Lösung zufrieden bist, hier noch der Code mit dem eingebundenen Löschbefehl (fürs nächstemal *wink.gif*):

Code:

 

Hallo Beverly,

nachdem der Code mehrere Tage lief, bekomme ich auf einmal den Laufzeitfehler 13 "Typenunverträglich"
Kannst du dir erklären woran das liegt und wieso der erst irgendwann auftaucht?
Beim Debuggen wird die Fette Zeile Gelb markiert.

Grüße Wiesel

Code:

 

Hi,

was steht in E6?

 

Dank deiner Frage hab ich den Fehler gefunden.
Ich habe aus irgend einem Grund auf dem Steuerblatt eine Spalte eingefügt.
Damit verschiebt sich dann der gesamte Vorgabebereich und das Makro greift auf die Falschen Zellen zu.
Manchmal sieht man eben den Wald vor lauter Bäumen nicht *eek.gif* *grins

Noch eine Frage zu:
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
.Range(.Cells(1, 1), .Cells(15, lngLetzte)).Copy ThisWorkbook.Worksheets("Gefilt").Range("A1")

Der Code kopiert den gefilterten Bereich in den Zielbereich.
Ist das so zu verstehen das die 1. Zeile nach rechts markiert wird und dann nach unten solange die Zellen belegt sind?


Danke und Grüße Wiesel