VBA Spezialfilter

[Suicide]

Hallo allerseits,

ich hoffe das Thema ist im richtigen Forum. Finde nicht, dass es ins "Programmieren"-Forum passt.

Ich habe ein kleines VBA Problem. Ich habe eine ziemlich große Tabelle und will diese spaltenweise mit dem Spezialfilter filtern, wobei Duplikate entfernt werden sollen. Anschließend soll das Ergebnis jeweils in die entsprechende Spalte (beginnend bei Zeile 5500) kopiert werden. Der letzte Punkt stellt mich vor Probleme. Soweit bin ich:

Sub Makro1()

Dim Spalte As Integer

Spalte = Columns.Count

For Spalte = 1 To 254

Columns(Spalte).Select

Columns(Spalte).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(Spalte & "5500"), Unique:=True

Next Spalte


End Sub

Der "CopyToRange" befehl will aber nicht. Ich schaffe es einfach nicht, dem Programm zu sagen, dass es das Ergebnis der Filterung in jeder Spalte in dieselbe Spalte (nur eben ab Zeile 5500) kopieren soll. Folglich brauche ich ein "CopyToRange", welches mit der Variablen mitläuft.

Vielen Dank für eure Hilfe!

 

[GMG-CC]

Hallo Suicide,

dein Code geht schon in die Richtung deinen Nicks

Nee, mal im Ernst. Erstens:Willst du tatsächlich ALLE Spalten des Blattes, auch wenn sie keine Daten enthalten, so behandeln?

Und zweitens: Soll der gefilterte Inhalt in die gleiche Tabelle und die gleiche Spalte?


[EDIT] Hab mal 'ne Datei angehängt, die dir vielleicht weiter hilft...

 

[Suicide]

Erstmal danke für deine Mühe.

Es sind fast alle Spalten mit Daten gefüllt, von daher finde ich das nicht so problematisch. Hab es mittlerweile auch hinbekommen.

Mit

CopyToRange:=Cells(5500, Spalte)

ging es letztendlich.

Also viele Dank und kann zu