ошибка переполнения vba

Question

Я получаю ошибку переполнения при попытке скомпилировать мою пользовательскую форму:

Nr Isikukood Eesnimi Perenimi Linn

1 38602110722 Прийт Бурмейстер Йыгева

Private Sub wisikukood_Change()
    Dim h As Range
    Set h = Range("tabel2")
    znimi.Value = h(wisikukood.Value, 3) + " " + h(wisikukood.Value, 4)
End Sub

Строка: znimi.Value = h(wisikukood.Value, 3) + " " + h(wisikukood.Value, 4)

У меня wisikukood из списка, 3 для firstname из таблицы и 4 для lastname.

znimi - текстовое поле необходимо заполнить после выбора значения из списка wisikukood.

Answer 1

Не уверен, что я полностью понимаю вашу конкретную проблему, но, если вы хотите использовать 11-значный идентификатор, чтобы получить имя, тогда может быть полезно использовать VLOOKUP:

Private Sub wisikukood_Change()
    Dim h As Range
    Set h = Range("tabel2")
    znimi.Value = WorksheetFunction.VLookUp(wisikukood.Value, h, 3, false) & " " & WorksheetFunction.VLookUp(wisikukood.Value, h, 4, false)
End Sub