Hallo zusammen,
ich habe eine intelligente Tabelle und möchte alle Werte aus einer Spalte (mit der Überschrift "Kategorie") ohne dublikate an eine andere Stelle kopieren. Ich habe mehrere Varianten durchprobiert, aber bei keiner passiert irgendetwas. Per Debug.Print habe überprüft, dass alle Variablen korrekt sind und wenn ich den "Range" Zeil zum Test separat mit .Select ausführe, markiert er auch den entsprechenden Bereich, deshalb habe ich keine Ahnung was ich falsch mache.
Zur Übersicht vorweg haben die Variablen für die aktuelle Tabelle folgende Werte:
SpalteKategorie: 5
letztezeile: 1017
ZeileUStatistik1: 1026
Die konkrete Zeile lautet:
ws.Range(Cells(1, SpalteKategorie), Cells(letztezeile, SpalteKategorie)).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range(Cells(ZeileUStatistik1, SpalteKategorie)), Unique:=True
Ich bin mir sicher, es ist wieder irgendeine Kleinigkeit, die ich noch nicht kenne, oder übersehen habe.
Wenn ihr Ideen habt, das insgesamt besser zu machen, bin ich jederzeit lernwillig und für neue Anstöße dankbar.
Falls ihr noch weitere Infos braucht, um helfen zu können, sagt Bescheid, die liefere ich natürlich gerne nach.
Danke im Voraus
JMP