Ошибка макроса типа макроса Excel при прохождении через столбец

Каждый вызов этой функции приводит к несоответствию типа «13» Runtime. Почему это происходит?

Public Function VersionExists(versionId As String) VersionExists = False For Each cell In Tabelle2.Columns(1) If cell.Value = versionId Then VersionExists = True End If Next End Function 

    Вот альтернатива, как я предложил в комментарии

     Public Function VersionExists(versionId As String) As Boolean Dim aCell As Range, rng As Range Set rng = Tabelle2.Columns(1) Set aCell = rng.Find(What:=versionId, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not aCell Is Nothing Then VersionExists = True End Function 

    Вы не можете получить доступ к cell.value из .Columns(1) поскольку он возвращает диапазон, охватывающий весь столбец;

     For Each cell In Sheet1.Columns(1).Rows '//or .cells 

    Вероятно, неплохо выйти из цикла for после матча.

    Interesting Posts

    Excel Macro для ввода пользователем, обратный вызов для повторного ввода пользователя, если он неверен

    Как скопировать и фильтровать набор записей DAO в VBA?

    Перебирайте строки с помощью Excel VBA для установки счетчика

    Grails: Как экспортировать список Grails в Microsoft Excel?

    Массовая загрузка миллионов записей в БД из листа Excel

    VBA Ошибка времени выполнения 1004: Метод Диапазон объекта _Global не удалось при попытке создать таблицы в Excel 2013

    Excel VBA: как найти первый номер строки страницы

    Автоматизация сервера Office не удалась при вызове «CopyPicture» на некоторых компьютерах

    Как создать раскрывающийся список «while-editing-cell» в Excel?

    Как сохранить рабочий лист по другому пути с другим именем

    Есть ли надстройка Excel для VSTO 2005SE?

    Заявление SQL с несколькими логическими операторами

    Как выбрать существующую диаграмму в Excel с помощью C #

    Как изменить размер массива после того, как пользователь выбирает значения в пользовательской форме Excel VBA?

    Функция MIN в Excel

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