hinzufügen und Positionieren von Dopdowns
22.06.2006 11:57:39
Dopdowns
habe gestern schon mein Problem geschildert, allerdings voreilig als gelöst angesehen.
Per Code soll ein Dropdown eingefügt werden, dieses soll Zellgröße haben.
Das wird mit dem folgenden Code auch erreicht.
Set ddown = DropDowns.Add(.Left, [c2].Top, [c2].Width, [c2].Height)
Mein Problem ist nun folgendes:
Ich verfüge nicht über eine Zellangabe [c2] sondern will ein indexiertes Rangeobjekt formatieren bzw. Elemente einfügen.
also ungefair folgendermaßen:
Dim Zelle(X) as range
with Zelle(X)
.format=...
select case X
case=1
set DDown=DropDowns.Add
with Ddown
.list fillrange etc.
es fehlt mir die korrekte Syntax
Grüße
Berthold