Excel bietet bereits einige Standard-Listen. Um immer wieder benötigte eigene Listen anzufertigen, gibt es zwei Möglichkeiten (beides Makros):
1. Bei relativ kurzen Listen sieht das dann so aus:
Sub EigeneListe()
Application.AddCustomList Array ("Erde", "Jupiter", "Mars", "Venus")
End Sub
2. Längere Listen sollte man aus einer Tabelle erzeugen (hier: A1 A50):
Sub ErstellenBenutzerdefinierteListen()
On Error Resume Next
Application.AddCustomList _
ListArray:=Sheets("Tabelle1").Range("A1:A50")
End Sub