2016-07-14 8 views
0

Ich habe ein Problem mit meiner ComboBox1, ich versuche, einige versteckte Filter zu machen, um die Anzeige von vielen Daten einfacher zu machen und ich möchte auswählen, was ich über eine Combo - Box herausfile Eingabeauswahl ist Teil dieser verarbeiteten Daten.VBA - Filling Combo Box mit Dynamikbereich

Hier ist ein Code, den ich versuchte, um die ComboBox zu füllen, aber es kommt mit einem Fehler, der besagt, dass es die falsche Verwendung von Methode ist.

Sub ComboBox1_DropButton_Click() 
Dim i As Range 

With Sheets("Pipe 16") 
Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) 
End With 
Me.ComboBox1.ListFillRange = "i" 

End Sub 

Jede Hilfe wird geschätzt.

EDIT

dies nicht durch die Antworten gezeigt in Dynamically set ListFillRange in Excel ComboBox using VBA

+0

Mögliche Duplikat [Dynamisch eingestellt ListFillRange in Excel ComboBox mit VBA] (http://stackoverflow.com/questions/4200712/dynamically-set-listfillrange-in-excel-combobox-using-vba) – Dave

+0

Have habe gerade versucht, was hier vorgeschlagen wird und es funktioniert nicht @Dave – lewisthegruffalo

+0

Try Me.ComboBox1.List = i.Value –

Antwort

2

ListFillRange die Adresse des Bereichs akzeptieren nicht den Bereich selbst beantwortet werden können.

Sub ComboBox1_DropButton_Click() 

    Dim i As Range 

    With Sheets("Pipe 16") 
     Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) 
    End With 
    Me.ComboBox1.ListFillRange = i.Address 

End Sub