seit 2 wochen habe ich problem wie ich das combobox dynamisch befülle
Background:
Tabelle Header
TTYPE BELEG NR
PO 2004711
BILL 2004712
WO 2004713
BILL 2004714
BILL 2004715
Tabelle SALES
lege ich ein combobox mit active X, Listfillrange = blank
mit event dropbuttonclick, versuche ich das combobox zu befüllen
siehe unten, nichts functioniert.
bitte hilf mir
Danke
Private Sub ComboBox1_DropButtonClick()
Dim source_rng As Range
Dim temp_row As String
For Each cell In Worksheets("HEADER").Range("A:BA).Cells
If Len(cell) = 0 Then Rows.Select: Exit For
If cell.Value = "BILL" Then temp_row = "B" & cell.Row
' Set source_rng = Worksheets("HEADER").Range(temp_row)
Cbnoemptys.AddItem Cells(cell.Row, 3).Value
' With ComboBox1
' .ListFillRange = source_rng.Address(cell.Row, 3)
' End With
End If
Next cell
End Sub