Sortieren nach Alphabet ohne Duplikate

Computer: Software & Programmierung Office Software
1

Hi,
kennt jemand eine Formel die eine Liste nach dem Alphabet sortiert und ohne Duplikate.

Danke
Gruß
Xen55

2

Hallo Xen55

ich vermute mal es geht eher um die Duplikate als um das sortieren.
Ich würde die Spezialfilterfunktion wählen, die die Duplikate löscht
und anschließend sortieren.
Vba code ist beispielhaft angeben.

Gruß

Frank

Sub Delete_duplicates()
'Frage: Wie kann ich doppelte Datensätze in einer Tabelle löschen, ohne je-
’ den einzelnen Datensatz zu überprüfen?
’ über Spezialfilter,
Range(„A1“).select
Selection.CurrentRegion.Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Range(„CA1“), Unique:=True
Columns(„A:BZ“).Delete

End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hi Xen 55
Ich finde es am einfachsten, die
(sortierten)Doppel zu löschen, z.B. mit einem Makro, welches immer den Nachfolger auf Identität prüft und ihn gegebenenfalls löscht.
Ist einfach, wenn Hilfe nötig, bitte Bericht
Erich

4

einfaches VBA
Hi Xen 55

Option Explicit
Sub doppelweg()
Dim behalte, zahl as integr, i As Integer
i = 1
Range("A1").Select
Selection.End(xlDown).Select
zahl = ActiveCell.Row
Range("A1").Select
For i = 1 To zahl
If ActiveCell.Value = behalte Then ActiveCell.Delete
behalte = ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Next i
End Sub

Erich

5

Hi, vielen Dank aber wie ruft sich diese Sub auf?

MFG Xen55

6

Hallo Frank,
ja, mehrmals sortieren da die zu sotierende List. Deswegen funktioniert der Spezialfilter nicht weil man da jedesmal bei einer Veränderung der zu sotierenden Liste neu den Spezialfilter setzten muß.
Wie muß ich deinen VBA-Code anwenden. Durch ein Button oder wo muß ich das hin kopieren so das er sich automatisch aufruft.

Danke
MFG Xen55

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]