DropDown-Menüs
11.05.2005 14:54:26
daniel
Hallo nochmal,
mir wurde nahe gelegt doch mal das problem genau zu schildern...
Und zwar funktioniert die erstellung von beliebig vielen dropdowns, allerdings schaffe ich es irgendwie nicht jedem menü die eigene zellverknüpfung zuzuweisen.
ich würde gerne folgendes hinbekommen:
im dropdown1 mit auswahl1 soll index1 ausgegeben werden,
im dropdown2 mit auswahl2 soll index2 usw.
wenn ich jetzt den LINKEDCell aktiviere sind alle dropdown voneinander abhängig, heißt bei auswahl in einem der dropdowns erscheint die auswahl in allen.
hoffe das war jetzt nicht zu kompliziert.
wäre euch wirklich dankbar wenn ihr einen tipp für mich hättet!
gruß
daniel
For i = 1 To 4
ActiveSheet.DropDowns.Add(180.75, 101.25, 60, 15.75).Select
With Selection
.ListFillRange = "$A$1:$A$4" (bsp. a,b,c,d)
'.LinkedCell = "$B$1"
.DropDownLines = 8
.Display3DShading = False
End With
'ActiveSheet.Shapes("Drop Down 1+i").Select ?
Selection.ShapeRange.IncrementLeft (119.25)
Selection.ShapeRange.IncrementTop (50.25) * i
Next i
End Sub