Grüezi zusammen
Ich persönlich würde ihn in ein Extranbaltt schreiben daß
permanent ausgeblendet ist und daß ohne Vba nicht einblenden
kann.
Pardon, aber das ist Quatsch!
Es hat wirkklich triftige Gründe, dass der Kriterienbereich da auf jedem einzelnen Tabellenblatt ganz oben steht!! 
Nur so ist sichergestellt, dass ohne weitere Manipulation ein Tabellenblatt kopiert und die Kriterien verändert werden können ohne dass dann auch ein weitres Tabellenblatt und der VBA-Code erweitert werden muss.
Die Mappe ist so vorbereitet, dass es auch einfache Weise auf für VBA-Unkundige machbar ist sie zu erweitern.
…wenn die ersten Zeilen mit den Kriterien stören, dann können die doch einfach ausgeblendet werden, so ist das Ganze angedacht…
Abgeshen davon war ich jetzt 2 Stunden nicht am PC und dachte
wenn ich wiederkomme hat Thomas das schon gelöst, tztz, kein
Verlaß, aber schreib ich mal ein klitzkleinstes 35zeiliges
OT-Beitragchen schwupps, ruckzuck ist mein Beitrag gesperrt
-( *grins*
…ich war auf 3000m beim Skifahren mit meiner Tochter, da sind mit solche Kinkerlitzchen nicht wirklich wichtg… ;-9
Der gut durchdachte Code von Thomas ist schon raffiniert durch
geschickte Namensvergabe und dann dem „Spezialfilter“.
@Thomas, die Sub ReSharpen scheint mir sehr entbehrlich
Nö, wenn der Code beim Entwickeln mal abfliegt und die Events nicht mehr aktiv sind reicht ein Start dieser Sub um sie wieder ‚scharf‘ zu machen.
Ich habe dir nicht ohne Grund den Wink mit dem Zaunpfahl auf
Spezialfilter gegeben. Wenn du den Spezialfilter verstanden
hast so kannst du das was Thomas zu den Zellen in A1 sagte, nie
löschen ignorieren.
A1 ist wurscht. Es geht einzig um den Namen der Zelle, welche
Zelle das eigentlich ist ist egal.
…sie sollte halt einerseits auf jedem Ziel-Tabellenblatt enthalten sein und andererseits sich innerhalb des Kriterienbereiches befinden…
Für den Spezialfilter sind wenn du wie hier auf/in ein
andewres Blatt filtern willst drei Zellbereiche unbedingt
nötig.
Der Listenbereich, also deine Daten die du filtern möchtest.
Der Kriterienbereich, also der Bereich wo die
Filterbedingungen stehen.
Bei diesen Bereichen ist es im Normalfall sehr wichtig daß
beide die exakt gleichen Überschriftszeilen haben.
Es bit meines Wissens hier keinen ‚Nicht-Normalfall‘.
Der Zellbereich wohin gefiltert werden soll.
In der eben von mir genannten Reihenfolge sind das also die
vergebenen Namen:
DataStart
DataCrit
DataGoal
von Relevanz.
Experimentiere damit rum wenn du lernen möchtest.
Auf welchen Blättern diese drei Bereiche stehen ist völlig
egal für das Prinzip. Derzeit ist halt auf jedem
Filterergebnisblatt oberhalb
des Wohin-Bereiches noch der Kriterienbereich zu sehen.
Ein einfacher Weg dies zu ändern wäre in den betreffenden
Blättern die obersten 3 Zeilen auszublenden.
…und das ist genau der Weg der gegangen werden soll.
Keine (grosse) Kenntnis des Spezialfilter (wenn vorhanden schadet das aber sicher nicht) und vor allem von VBA ist notwendig.
Einmal eingerichtet wie in der Mappe mit den Kommentaren (und auch in meinem Beitrag oben) geschildert, muss künftig nur noch ein Ziel-Tabellenblatt kopiert und das Filter-Kriterium angepasst werden.
Einfacher für den unbedarften User geht es nun wirklich nicht mehr, meine ich.
Ich habe die Mappe in weniger als 2 Minuten mal auf die Daten angepasst und ein Tabellenblatt mit dem Filter eingefügt.
Die Fleissarbeit für die anderen kann der OP bitte selbst noch tun - einfach das eine Tabellenblatt kopieren und eine andere Marke in die zweite Zeile schreiben usf.
Am Ende dann die Zeilen 1-3 auf den einzelnen Blättern einfach ausblenden.
http://users.quick-line.ch/ramel/Demo-Daten/tr_Filte…
Mit freundlichen Grüssen
Thomas Ramel
