Gültigkeit-Liste per VBA füllen
21.09.2003 13:02:09
Christoph
ich möchte per VBA in der Zelle F8 ein DropDown-Menü (Gültigkeit-Liste)erzeugen.
In diesem DropDown-Menü sollen alle vorhandenen Einträge (ohne Leerzellen) des Ranges F10 bis F1000 eingetragen werden. Wenn im genannten Range Werte mehrfach vorkommen, so sollen diese in der DropDown-Liste nu einmal aufgeführt werden. Tja, und eigentlich will ich diese Werte in der DropDown-Liste auch noch sortieren. Also im Prinzip so ein DropDown-Menü, wie es der Autofilter erzeugt - nur will ich eben nicht filtern.
hat jemand eine Lösung oder einen Tipp?
Ich scheiter schon am Ansatz, wenn ich z.B die DropDown-Liste mit einem Array füllen will. (noch nicht sortiert, etc. siehe unten)
schon vorab vielen Dank für eure Hilfe
Gruß
Christoph
Sub Dropdown_Test()
Dim arr1() As Variant
ReDim Preserve arr1(40, 0)
arr1 = Range("F10:F49")
Cells(8, 6).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:=arr1 '1004: Anwendungs- oder objektdefinierter Fehler
.IgnoreBlank = True
.InCellDropdown = True
End With
End Sub