Public Function fill_dropdown(var_dropdown)
With var_dropdown
    .AddItem "Spalte 'A'"
    .AddItem "Spalte 'B'"
    .AddItem "Spalte 'C'"
    fill_dropdown = var_dropdown
  End With
End Function

fill_dropdown(namedercombobox)