Excel VBA - Einträge einer Spalte ohne Duplikate in eine Klappliste

Hallo Olli,

probiere mal:

Private Sub UserForm_Initialize()

Dim LRow As Long, i As Long

Dim myDic As Object

Dim varData As Variant, varTmp As Variant

'Hier Blattname, Spalte und Bereich anpassen

With Sheets("Tabelle1")

   LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

   varData = .Range("A1:A" & LRow)

   Set myDic = CreateObject("Scripting.Dictionary")

   For i = LBound(varData) To UBound(varData)

      myDic(varData(i, 1)) = varData(i, 1)

   Next

   varTmp = myDic.items

   Me.ComboBox1.List = varTmp

End With

End Sub

Claus

Hallo Petra,

du bist hier im Forum für Excel for Windows.

Dort geht es z.B. mit dem Spezialfilter ohne Duplikate. Oder du kopierst dir die komplette Spalte an eine andere Stelle und gehst dann auf Daten => Duplikate entfernen.

Falls bei dir beides nicht funktioniert, melde dich nochmals für eine Formel- bzw. VBA-Lösung. Poste dann auch mal die Anzahl deiner Zeilen, denn die Formellösung wäre eine Array-Formel und die werden bei großem Datenbestand sehr langsam.

Mit freundlichen Grüßen

Claus

Hallo,

mit Excel gibt es meist mehrere Möglichkeiten.

Dazu müsste ich aber wissen, um wie viele Einträge in Spalte A es sich ungefähr handelt, ob diese Einträge Unikate sind, ob diese Einträge sortiert sind und ob eventuell VBA erlaubt ist.

Claus

Hallo Nicolas,

du könntest dir die Spalte mit den Orten durch den Spezialfilter ohne Duplikate an eine andere Stelle kopieren lassen und dann diesen Bereich als Quelle für den DropDown wählen.

Bedenken habe ich, weil du in der Pivot-Tabelle doppelte ausblenden musstest. Die Pivot-Tabelle fasst gleiche Namen normalerweise zusammen. Das heißt, bei dir sind die gleichen Orte nicht immer gleich geschrieben und werden deshalb nicht als Duplikate erkannt.

Wenn dich deine Tabelle öfter verändert, müsstest du mit dem Spezialfilter immer mal wieder neu die Duplikate entfernen.

Hier findest du eine Formel, die dir das automatisch macht.

Sonst beschreibe in welcher Spalte deine Orte sind, damit man dir eventuell mit einer VBA-Lösung behilflich sein könnte.

Mit freundlichen Grüßen

Claus

Hallo,

in Excel kannst du mit Hilfe des Befehls "Duplikate entfernen" deine erste Aufgabe lösen und z. B. mit Hilfe der Funktion SVERWEIS und einem Filter die zweite.

Überhaupt solltest du überlegen, ob sich Excel nicht besser eignet, wenn du quasi eine Art Datenbank pflegen willst.

In Word benötigst du eine VBA-Lösung, wie bereits von G.O. erwähnt, denn vermutlich handelt es sich um weit mehr als nur 4 oder 5 Einträge in deinen Listen...

Viele Grüße

Lisa