Присвоение переменной значения из массива

[Maxx]

Всем доброго дня!

Простая задача:
есть массив, надо присвоить значения массива переменным Public

Public f_product_id As String
Public f_manufacturer_name As String
Public f_product_sku_orig As String
Public f_product_sku_alt As String
Public f_product_s_desc As String
Public f_product_in_stock As String
Public f_pruduct_availability As String
Public f_vendor_price As String
Public f_product_price As String
Public f_product_sku As String
Public f_category_id As String
Public f_product_name As String
Public f_vendor_name As String
Public f_vehicle_brand As String
Sub GetVendorFieldSettings()
    Dim VendorList As Range: Set VendorList = Range("C16:I16")  'задается диапазон постащиков для настройки полей прайса!!!!!
    VendorList.Find(what:=VendorName, SearchOrder:=xlByColumns, LookIn:=xlValues).Select
    
    Dim arrVendorFieldSettings()
    arrVendorFieldSettings = Range(ActiveCell.Offset(1).Address, ActiveCell.Offset(14).Address).Value   'задается диапазон с настрйками!!!!
    ReDim arrVendorFieldSettings(1 To UBound(arrVendorFieldSettings, 1))
    
    f_product_id = arrVendorFieldSettings(1)
    f_manufacturer_name = arrVendorFieldSettings(2)
    f_product_sku_orig = arrVendorFieldSettings(3)
    f_product_sku_alt = arrVendorFieldSettings(4)
    f_product_s_desc = arrVendorFieldSettings(5)
    f_product_in_stock = arrVendorFieldSettings(6)
    f_pruduct_availability = arrVendorFieldSettings(7)
    f_vendor_price = arrVendorFieldSettings(8)
    f_product_price = arrVendorFieldSettings(9)
    f_product_sku = arrVendorFieldSettings(10)
    f_category_id = arrVendorFieldSettings(11)
    f_product_name = arrVendorFieldSettings(12)
    f_vendor_name = arrVendorFieldSettings(13)
    f_vehicle_brand = arrVendorFieldSettings(14)

End Sub

Проблема: любой елемент arrVendorFieldSettings(1), arrVendorFieldSettings(2) и т.д. имеет значение Empty.
В чем ошибка?

[IgorGO]

пробуйте так:
Dim arrVendorFieldSettings(1 to 14)
arrVendorFieldSettings = Range(ActiveCell.Offset(1).Address, ActiveCell.Offset(14).Address).Valu e 'задается диапазон с настрйками!!!!
'ReDim arrVendorFieldSettings(1 To UBound(arrVendorFieldSettings, 1))

[Maxx]

IgorGO, спасибо, что откликнулись!
Теперь ошибка на строке
arrVendorFieldSettings = Range(ActiveCell.Offset(1).Address, ActiveCell.Offset(14).Address).Valu e
Cannot asign to array.
В общем вопрос был из-за того, что просто не пнятно, почему не работает.
В итоге сделал так:

Sub GetVendorFieldSettings()
    Dim VendorList As Range: Set VendorList = Range("C16:I16")  'задается диапазон постащиков для настройки полей прайса!!!!!
    VendorList.Find(what:=VendorName, SearchOrder:=xlByColumns, LookIn:=xlValues).Select
    
    f_product_id = ActiveCell.Offset(1)
    f_manufacturer_name = ActiveCell.Offset(2)
    f_product_sku_orig = ActiveCell.Offset(3)
    f_product_sku_alt = ActiveCell.Offset(4)
    f_product_s_desc = ActiveCell.Offset(5)
    f_product_in_stock = ActiveCell.Offset(6)
    f_pruduct_availability = ActiveCell.Offset(7)
    f_vendor_price = ActiveCell.Offset(8)
    f_product_price = ActiveCell.Offset(9)
    f_product_sku = ActiveCell.Offset(10)
    f_category_id = ActiveCell.Offset(11)
    f_product_name = ActiveCell.Offset(12)
    f_vendor_name = ActiveCell.Offset(13)
    f_vehicle_brand = ActiveCell.Offset(14)

End Sub

[IgorGO]

Извините, штанга получилась...
У Вас не работало потому что ReDim обнуляет данные.
Вы сначала присвоили значения, а потом переопределили размеры массива, вот он и обнулился.
Есть ключевое слово Preserve.
ReDim Preserve МАССИВ(...) - при таком обьявлении существовавшие в МАССИВ значения сохраняются

[Maxx]

IgorGO, не первый раз выручаете! Спасибо огромное!
никогда ранее не обращал внимания на то, что сначала переопределял размеры массива, а потом присваивал значения