AdvancedFilter Action:=xlFilterCopy
14.12.2005 17:11:16
Manuel
will aus einem Sheet z.B. die Tabelle:
A
A
B
C
D
D
F
auf ein anderes Sheet per autofilter ohne duplikate ausgeben.
Problem:
Ich will keine Überschrift haben!
Aber der gibt mir die obige Tabelle immer so aus:
A
B
C
D
F
A
CODE:
Sheets(i).Range("" & bereich1 & ":" & bereich2 & "").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("" & SS & row + 1 & ""), Unique:=True
Danke