|
Servus!
Habe mir eine Tabelle mit 1300 Dropdowns gebaut. Abgesehen, dass es ultralange gedauert hat, bis alle Dropdowns drin waren, würde ich jetzt noch gerne die LinkedCell Eigenschaft jedem Dropdown zuweisen. Der Wert soll einfach hinter dem Dropdown im Feld abgelegt werden.
Eventuell wäre es einfacher gewesen, die LinkedCell gleich bei Erstellung zuzuweisen, aber das hat nicht geklappt, da leider alle Dropdowns ihren Wert im gleichen Feld gespeichert haben (habs über .LinkedCell=cells(21,counter).adress probiert...)
Hier mein Code, mit dem ich die Dropdowns eingefügt habe:
Dim dd As DropDown
k = 9
Do
Cells(k, 21).Select
ActiveSheet.dropdowns.Add ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height
ActiveSheet.dropdowns.Select
With Selection
.ListFillRange = "$Y$2:$Y$4"
End With
k = k + 1
End If
Loop Until k = 1303
Das aber nur als Info. Falls es einfacher ist, die Schleife nochmals laufen zu lassen und den Dropdowns bei Erstellung die LinkedCell zuzuweisen, wäre ich dazu auch bereit ;)
Habe jetzt leider über 3 Std gegoogelt und probiert- es gibt auch Beispielcodes, bei denen es in einer leeren Mappe funktioniert, bei mir aber nicht :/
Danke schonmal!
Gruss
Dominik
|