DropDown

Forumthread: DropDown
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: DropDown

DropDown

20.06.2006 17:40:05

BGrabe

Hallo Zusammen,
ich suche die Syntax zum Einfügen von Formular Dropdowns mit gleichzeitiger Benennung und Zuweisung (Position) und Größenanpassung an eine bestimmte Zelle.
Geht das direkt und wenn wie?
Grüße
Berthold

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: DropDown

20.06.2006 17:58:49

K.Rola
AW: DropDown

20.06.2006 18:11:42

B Grabe
AW: DropDown

20.06.2006 18:11:50

B Grabe
AW: DropDown

20.06.2006 18:14:50

K.Rola
AW: DropDown

20.06.2006 18:18:20

BGrabe

AW: DropDown

20.06.2006 17:58:49

K.Rola

Hallo,
Beispiel:
Option Explicit
Sub dropdown()
Dim ddown As Object
Set ddown = ActiveSheet.DropDowns.Add([c2].Left, [c2].Top, 100, 15.75)
With ddown
.LinkedCell = "$A$1"
.OnAction = "Testmakro"
.ListFillRange = "$B$1:$B$10"
End With
End Sub
Sub Testmakro()
MsgBox "Dropdown"
End Sub
Gruß K.Rola
Der Fleiß ist die Wurzel aller Häßlichkeit.  
 Oscar Wilde

AW: DropDown

20.06.2006 18:11:42

B Grabe

Vielen Dank K. Rola,
habe aber noch Fragen zum Detail:
Kann das Dopdown der genau der Zellgröße angepaßt werden? Und wie müßte die Syntax dann angepaßt werden?
Set ddown = ActiveSheet.DropDowns.Add([c2].Left, [c2].Top, 100, 15.75)
Danke
Berthold

AW: DropDown

20.06.2006 18:11:50

B Grabe