Hallo allerseits,
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! |