Вы можете использовать DataRange
вашего PivotField
в качестве источника для ComboBox
.
Вы можете добавить значение каждой ячейки к элементам ComboBox
...
Dim aCell As Range
For Each aCell In ActiveSheet.PivotTables(1).RowFields(1).DataRange.Cells
ActiveSheet.ComboBox1.AddItem aCell.Value
Next aCell
... или целому ComboBox.List
в одной простым присваиванием:
ActiveSheet.ComboBox1.List = ActiveSheet.PivotTables(1).RowFields(1).DataRange.Value
Полагаю, вы использовали свой список "TIMBRA ..." в качестве единственного поля строки в сводной таблице.
Если нет, вы можете вместо этого обращаться к DataRange по именам, например,
ActiveWorkbook.Sheets("...").PivotTables("...").PivotFields("...").DataRange