Из ComboBox в TextBox

[Вадим12091965]

Всем привет. Не могу сообразить как записать разницу значений комбобоксов в текстбокс.

Private Sub TextBox1_Change()
TextBox1.Text=Combobox1.Value-Combobox2.Value
End Sub

или

Private Sub UserForm_Initialize()
TextBox1.Text=Combobox1.Value-Combobox2.Value
End Sub

что-то должно быть из этого, но не работает. Заранее благодарен за помощь.

[motorway]

А по какому событию надо записывать-то? (и что именно не работает, какая ошибка?)
Уж так точно работает:

Private Sub TextBox1_Change()
Application.EnableEvents = False
TextBox1.Text = ComboBox1.Value - ComboBox2.Value
Application.EnableEvents = True
End Sub

Но у меня сработал и первый вариант, хотя на первый взгляд изменение значения должно вызвать повторный запуск процедуры, но это наводит на мысль, что тут изменение только клавиатурное

[Вадим12091965]

Взял из других источников:

Private Sub ComboBox1_Change()
On Error GoTo ComboBox1_Change_Error
TextBox1.Text = ComboBox1.Value - ComboBox2.Value
On Error GoTo 0
Exit Sub
ComboBox1_Change_Error:
TextBox1.Text = ""
End Sub

Private Sub ComboBox2_Change()
On Error GoTo ComboBox2_Change_Error
TextBox1.Text = ComboBox1.Value - ComboBox2.Value
On Error GoTo 0
Exit Sub
ComboBox2_Change_Error:
TextBox1.Text = ""
End Sub


Спасибо за помощь.

[motorway]

Видимо, вы для себя не совсем чётко определяете, по какому событию что должно происходить. В одном случае делаете по изменению текстбокса, в другом случае - по комбобоксу. Это странно.