Ошибка 381 при создании combobox (2 столбца) пустая

Моя цель после sub cmbSaveAndNew_click заключается в том, чтобы открыть форму user open со всем пустым (за исключением заполненного cmbTest без выбранного значения)

 Private Sub UserForm_Initialize() Dim i As Integer Dim j As Integer i = 2 j = 0 frmTest.cmbKinderen.Clear frmTest.cmbKinderen.ColumnCount = 2 While Sheets("shtGegevens").Cells(i, 1) <> "" frmTest.cmbTest.AddItem (sheets(1).cells(i, 1)) frmTest.cmbTest.Column(1, j) = Sheets(1).Cells(i, 1) i = i + 1 j = j + 1 Wend cmbThing.AddItem "Yes" cmbThing.AddItem "No" End Sub 

Второе подразделение:

 Private Sub cmbTest_Change() Dim i As Integer Dim j As Integer i = frmTest.cmbTest.Column(1) 'ERROR HERE If Sheets(1).Cells(i, 5) = "Yes" Then frmTest.cmbThing.Value = "Yes" ElseIf Sheets(1).Cells(i, 5) = "No" Then frmTest.cmbThing.Value = "No" Else frmTest.cmbThing.Value = "" End If End Sub 

До сих пор все работает нормально. Мои комбобокс заполняются, значение «combobox» моей «вещи» зависит от того, что я выбрал в cmbTest и т. Д.

Проблема возникает ПОСЛЕ следующего подраздела:

 Private Sub cmdSaveAndNew_Click() Dim i As Integer i = frmTest.cmbTest.Column(1) 'write something in sheets 'current wrong solution: cmbTest.value = "" 'ERROR BECAUSE OF THIS End Sub 

Ошибка im get – это ошибка 381, что-то вроде «Невозможно получить свойство Column. Недопустимый индекс для propertymatrix» (переведенный)

Как «отменить выбор» выбранного значения cmbTest без получения этой ошибки?

Давайте будем гением компьютера.