Werte in vba sortieren und doppelte löschen

Hallo,
ich weiß, so ähnliche Beiträge sind schon mal gepostet wurden. Aber ich bin leider aus den Archivbeiträgen nicht schlau geworden .... leider.
Ich habe folgendes Problem: Ich habe eine Liste, die auch dynamisch gefüllt wird.
Die Werte aus der Liste (Zelle A3, A4, A5, .... ) möchte ich als Listenwerte in eine bestimmte Zelle eingeben.
Die Listenwerte bestimme ich mit:

Sub Makro4()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:="Wert1,Wert2,Wert3"
End With
End Sub

Für mich ist jetzt nur die Frage, wie bekomme ich die Werte aus meiner ursprünglichen Liste da rein. Achtung: die Werte aus der Ursprungsliste können doppelt vorkommen und sind unsortiert.
Es sind auch nicht allzu vielle Werte (maximal 1.000), so dass selbst ein bisschen umständlicher Allgorhytmus das seine tun sollte. Ich will / muss ihn halt nur verstehen.
Vielen Dank für alle Tipps.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

Option Explicit
Sub aaa()
Dim objList As Object, arrList, rngC As Range
Set objList = CreateObject("Scripting.dictionary")
For Each rngC In Range(Cells(3, 1), Cells(Rows.Count, 1).End(xlUp))
objList(rngC.Value) = 0
Next
arrList = objList.keys
QuickSort arrList
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:=Join(arrList, ",")
End With
End Sub
Sub QuickSort(ByRef DasArray, Optional ErsteZeile, Optional LetzteZeile)
On Error Resume Next
Dim UnterGrenze As Long, OberGrenze As Long
Dim AktuellerWert, GemerkterWert As Variant
If IsMissing(ErsteZeile) Then
ErsteZeile = LBound(DasArray, 1)
End If
If IsMissing(LetzteZeile) Then
LetzteZeile = UBound(DasArray, 1)
End If
UnterGrenze = ErsteZeile
OberGrenze = LetzteZeile
AktuellerWert = DasArray((ErsteZeile + LetzteZeile) / 2)
Do While (UnterGrenze  AktuellerWert And OberGrenze > ErsteZeile)
OberGrenze = OberGrenze - 1
Loop
If (UnterGrenze  ErsteZeile) Then Call QuickSort(DasArray, ErsteZeile, OberGrenze)
If (UnterGrenze

Gruß
Rudi

Sub DUPP_raus() Dim WB, Liste As Range Set WB = ActiveWorkbook.Sheets("Tabelle1") 'anpassen Set Liste = WB.Columns("K:K") 'anpassen Liste.RemoveDuplicates Columns:=1, Header:=xlNo With WB.Sort .SortFields.Clear .SortFields.Add Key:=Liste, SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortTextAsNumbers .SetRange Liste .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:="=" & Liste.Address End With End Sub

Beliebteste Forumthreads (12 Monate)

Werte in vba sortieren und doppelte löschen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in vba sortieren und doppelte löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread