Excel-VBA: Werden die Werte aus Form Controls

Question

Eingebettet in das Arbeitsblatt sheet1 Ich habe eine Form Control Kombinationsfeld combobox_test genannt und es hat Wert ausgewählt x

zusätzlich zu dem, ich habe auch einen Knopf embbeded, dass, wenn Ich drücke es, ich möchte, dass es den Wert combobox_test annimmt und platziere es in something.Rows(y). Aber ich kann es nicht funktionieren und werde ein bisschen frustriert. Vielleicht können Sie mir in die richtige Richtung

Sub ButtonPressed_sample() 
    Dim value As String 

    Set putItRng = Range("theCells")   
    putItRng.Rows(1) = ActiveSheet.Shapes("combobox_test").Value   
End Sub 

Jede beraten zeigen? Bin ein absoluter Anfänger in VBA, also bitte so detailliert wie du kannst. Dank

Answer 1

ich nicht sicher, genannt bin das ist, was Sie wollen, aber es ist ein Anfang. Das Shape-Objekt hat keine Value-Eigenschaft, die die Quelle des Fehlers ist. Es gibt ein DropDown-Objekt, das veraltet ist, aber immer noch verfügbar ist.

Sub ButtonPressed_sample() 

    Set putitrng = Range("theCells") 
    putitrng.Rows(1) = ActiveSheet.DropDowns("combobox_test").value 

End Sub 

Answer 2

putItRng.Rows(1)= ActiveSheet.combobox_test.value 

Versuchen:

activesheet.cells(1,putItRng.column).value=activesheet.combobox_test.value 

Wenn es nicht funktioniert, dann Combobox nicht „Combobox_test“

Answer 3

Sub QuickSelect_Change() 
     With ActiveSheet.Shapes("QuickBox") 
      MsgBox "My Selected Value " & .ControlFormat.List(.ControlFormat.ListIndex) 
     End With 
    End Sub 

Answer 4

ActiveSheet.Shapes("combobox_test").ControlFormat.ListIndex