Office: (Office 2016) VBA Tabelle Filtern und neue Arbeitsblätter

Hallo,
ich will über VBA Zellen auswählen und diese Filtern (Duplikate entfernen)
Habe Tabelle mit Spalte A (verantwortlicher Trainer) und in Spalte B den Gruppennamen usw.
Danach soll für jeden Trainer in Spalte Aein neues Arbeitsblatt erstellt werden. (daher werf ich erstmal die duplikate raus)

Sub AuswahlTreffen()
On Error Resume Next
Dim Bereich As Range
Dim Quelle As Range
Dim Ziel As Range
Set Bereich = Application.InputBox("Bitte markiere den AuswahlBereich", _
"Bereich wählen", , , , , , 8)
On Error GoTo 0
Set Ziel = Range("z1")
Bereich.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Bereich, CopyToRange:=Ziel, Unique:=True
End Sub

Jetzt schreibt er mir die gefilterte Trainerliste in Spalte Z rein.
Im Endeffekt sollen bestimmte Trainer ausgewählt werden und dann für die Auswahl getroffenen jeweils ein Tabellenblatt erstellt werden. Darin sollen dann die Daten aus Tabelle kopiert werden.
Das mit Spalte Z ist eine Notlösung die ich nicht gehen will....

Danke

 

Hallo,

ich habe die in deinem Arbeitsblatt "Tabelle1" enthaltene Tabelle umgewandelt in eine strukturierte Tabelle namens "TabDaten" und sie mit etwas benutzerdef. Tabellenformat versehen. Wie du siehst, könntest du diese Tabelle nach jeder ihrer Spalten filtern.
Diese Tabelle erweitert sich automatisch, sobald du in der nächsten freien Zeilen Daten hinzufügst (zu erkennen auch an der Tabellenformatierung, die sich an die neue Tabellengröße anpasst).

Darüber hinaus habe ich im Arbeitsblatt "TrainerDaten" eine PivotTable namens "PivTabDaten" eingefügt, in der du wiederum nach jeder Spalte filtern/selektieren kannst.
Damit sich diese PivotTable aktualisiert, falls du in der Tabelle "TabDaten" Daten änderst/hinzufügst, musst du die aktive Zelle in den PivotTable-Bereich platzieren und mittels der rechten Maustaste im Kontextmenü den Befehl "Aktualisieren" auswählen.
Diese PivotTable kannst du auch ganz leicht über die eingeblendete Toolbox "PivotTable-Felder" neu konfigurieren, zB. über den definierbaren Filterbereich ein Trainer-Filterfeld anlegen.
Momentan ist die PivotTable so eingestellt, dass alle Trainer nach ihren Gruppen ... sortiert angezeigt werden.

Ferner habe ich im Arbeitsblatt "TrainerDaten" eine PivotTable namens "PivTabTrainer" eingefügt, in der du wiederum nach jeder Spalte filtern/selektieren kannst. Zum Unterschied zur ersten PivotTable ist hier explizit das Filterfeld "Trainer" vorhanden (momentan mit Filterwert "Jochen").

All dies ist ohne jeden VBA-Code möglich.

 

Hi erstmal vielen Dank...
Mein Plan war VBA um es für mehrere zu verwenden.. Das ist nur ein Beispiel, wo es zum Einsatz kommt.. Über VBA Lsg wäre ich dankbar..

 

Hallo,

in der beiliegenden Excel-Datei habe ich dir ein Makro eingefügt, das mit dem Button "Trainer-Blätter und Trainer-Tabellen erzeugen" (Arbeitsblatt "Tabelle1") ausgeführt werden kann.

In der strukturierten Tabelle "TabDaten", die sich links neben diesem Button befindet, kann über die Spalte "Trainer" eingestellt werden, für welche Trainer Arbeitsblätter erzeugt werden (über die Filterauswahl in der Kopfzeile). In diesen Arbeitsblättern befindet sich jeweils wieder eine strukturierte Tabelle, die die Datenzeilen aus der Tabelle "TabDaten" enthält, die zu dem betreffenden Trainer gehören.
Es wird für jeden ausgewählten Trainer nur je ein Arbeitsblatt erzeugt, auch wenn mehrere Zeilen für ihn vorhanden sind. Es werden aber alle Zeilen aus der Tabelle "TabDaten" für den/die ausgewählten Trainer ins jeweilige Trainer-Arbeitsblatt übernommen.

Ich hoffe, damit deine VBA-Wünsche erfüllt zu haben.