Office: Per Button Formularsteuerelement (Dropdown) einfügen

Hallo zusammen

Ich habe ein Dropdonw mit einer Auswahl erstellt.
in der Zelle davor wird die ANzahl eingetragen - im Drop-down wird der Artikel ausgewählt (Beispiel: 2 Birnen).
Nun möchte ich einen Button, mit dem ich uterhalb des schon vorhandenen Drop-down (Birnen) ein neues einfügt, mit der selben auswahlmöglichkeit wie beim ersten.....

Hoffe man kommt draus was ich meine...

kann mir jemand weiterhelfen?

Danke
Matthias

 

... Excel 2010 habe ich noch vergessen....

 

Hi,

welches Kombinationsfeld verwendest du - Formularsteuerelement, ActiveX-Steuerelement oder Gültigkeitsprüfung?

Bis später,
Karin

 

.... Formularsteuerelement (Titel)

 

Code:

Sub Kombinationsfeld()
    With ActiveSheet.DropDowns.Add(198, 80, 110, 20)
        .ListFillRange = "$B$1:$B$7"
        .LinkedCell = "$A$1"
        .DropDownLines = 8
    End With
End Sub

Bis später,
Karin

 

Vielen Dank schon mal...

Nun aber wie muss ich es anstellen, dass er mir das von mir erstellte dropdown nimmt (mit Auswahl Birnen, Äpfel etc) ?
das Zweite Problem: Das neue Drop-down erscheint immer an der selben Stelle; es sollte jedoch jewils unterhalb der schon Vorhandenen...

Gruss
Matthias

 

Hi Matthias,

da ich die konkreten Bedingungen nicht kenne, musst du sie selbst anpassen:

Code:

Sub Kombinationsfeld()
   Dim cbbElement As DropDown
   Dim arrZeilen()
   Dim lngZaehler As Long
   ReDim arrZeilen(0 To ActiveSheet.DropDowns.Count - 1)
   For Each cbbElement In ActiveSheet.DropDowns
      arrZeilen(lngZaehler) = cbbElement.TopLeftCell.Row
   Next cbbElement
   With ActiveSheet.DropDowns.Add(0, 0, 110, 20)
      .Top = Rows(Application.Max(arrZeilen()) + 1).Top  '<== Position oben
      .Left = Columns("D").Left  '<== Position links
      .ListFillRange = "$B$1:$B$7"  '<== Eingabebereich
      .LinkedCell = Cells(Application.Max(arrZeilen()) + 1, 1).Address  '<== Zellverknüpfung
      .DropDownLines = 8
   End With
End Sub

Bis später,
Karin

 

Hallo Matthias,

kann es sein, dass Du ein einfaches Dropdown aus der Datenüberprüfung haben möchtest?
Dieses ist erreichbar wie folgt:
Menüband > Tabulator Daten > Gruppe Datentools > Button Datenüberprüfung > Tabulator Einstellungen:
a) In der Kombobox "Zulassen" den Eintrag "Liste" auswählen
b) Im Adressauswahlfeld "Quelle" den Bereich für die anzuzeigende Liste eingeben (zB. =$B$1:$B$7)
c) Mit Button "Ok" bestätigen und Dialog schließen.

Ein solchermaßen definiertes Datendropdown lässt sich auch ganz einfach in die darunter liegenden Zellen kopieren (zB. durch Ziehen am Ziehpunkt).