ich habe ein sehr große Tabelle, ca. 40.000 Zeilen. Aus einer Spalte brauche ich alle verschiedenen Einträge (sind ca. 200). Wie kann ich diese immer wiederkehrenden Zeilen einmal auflisten?
Vielen Dank Gabi
Sub Makro1()
Dim Zei As Long, ws1 As Worksheet
Set ws1 = Worksheets("Tabelle1")
With Worksheets("Tabelle2")
.Activate
Zei = ws1.Cells(Rows.Count, 1).End(xlUp).Row
ws1.Range("A1:A" & Zei).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("A1"), _
Unique:=True
End With
End Sub
Gruß
Reinhard
Spezialfilter geht nicht, da ich ja keine Filterkriterien habe
ich vermute mal, Du hast es nicht einmal ausprobiert, oder? Der Spezialfilter ist "spezieller" als Du denkst.
Stell' Deinen Cursor auf den Bereich in dem Deine Liste ohne Duplikate erscheinen soll, wähle im Spezialfilter "an andere Stelle kopieren" und den Listenbereich (aus Deinen 40.000 Zeilen) aus, klicke "keine Duplikate" an und markiere in "kopieren nach" die Zelle in der die Listausgabe starten soll.
Sei einfach mal mutig ;-)
Viele Grüße,
Jan
Viele Grüße,
Jan