Excel VBA - фильтр на ComboBox не распознает первое значение

Question

У меня есть пользовательская форма, содержащая ComboBox. ComboBox заполняется значениями, которые вытягиваются из диапазона ячеек, которые были определены в диспетчере имен (диапазон A1: A5, хранящийся на отдельном листе). Под заголовком по умолчанию для ComboBox является «Select Office»

On Суб ComboBox_Change() у меня есть следующий код:

Private Sub ComboBox1_Change() 
Application.ScreenUpdating = False 
With Sheets("wpdata").UsedRange 
    .AutoFilter 
    If ComboBox1.ListIndex > 0 Then .AutoFilter 5, ComboBox1.Value 
End With 
Application.ScreenUpdating = True 
End Sub 

Это прекрасно работает с вариантами 2, 3, 4 и 5.

Однако при выборе первой опции не фильтрует на всех и фильтр остается на ранее выбранном элементе. Я также попытался сначала выбрать вариант 1, и он по-прежнему не фильтрует. Я попытался переупорядочить значения ComboBox, но это не имеет никакого эффекта, первый вариант все еще не распознается.

Есть ли у кого-нибудь решения?

Answer 1

If ComboBox1.ListIndex > -1 Then ...........