Hinzufügen zu Blatt von Kombinationsfeld und Befehlsschaltflächen VBA

Question

Ich versuche, ein Benutzerformular zu entwerfen, die zur Zeit etwa wie folgt aussieht:

Die Combo-Box verwendet A1: A5 seine Liste zu erzeugen und dann wird alles, was ausgewählt ist, in Zelle D12 verknüpft.

Ich möchte jedoch den Benutzer in der Lage sein, eine neue Liste basierend auf den Optionen in dem Kombinationsfeld mithilfe der Befehlsschaltfläche Hinzufügen zu füllen.

So zum Beispiel würde der Benutzer test2 aus dem Kombinationsfeld auswählen, klicken Sie auf Hinzufügen und wählen Sie eine andere Option, sagen Sie Test4, klicken Sie erneut auf Hinzufügen und es würde unter Test2 in Zelle D13 erscheinen.

Ich habe VBA vor, aber nie wirklich für Form Controls, nur für die Manipulation von Daten, so dass dies ziemlich neu für mich ist. Die meisten Online-Tutorials scheinen auch nicht zu helfen, bitte habt irgendjemand irgendwelche Vorschläge?

Answer 1

Dieser Code geht in ein separates Modul:

Sub add_click() 

Dim aws As Worksheet 
Dim i As Integer 
Dim firstemptyrow As Integer 

Set aws = ActiveSheet 

    With aws 

     firstemptyrow = .Cells(.Rows.count, "D").End(xlUp).Row + 1 
     If firstemptyrow < 12 Then firstemptyrow = 12 

     i = .DropDowns("dropdown1").Value 
     .Range("D" & firstemptyrow).Value = .DropDowns("dropdown1").List(i) 

    End With 

End Sub 

Sie müssen "dropdown1" mit dem Namen Ihres ComboBox ersetzen. Anschließend weisen Sie dieses Makro Ihrer Schaltfläche zu.