УВЫ - правильно передавая значение диапазона для функции

Question

в моем приложении я вызываю функцию и передать 4 значения для расчета ячейки адреса:

nettowertadresse = searchAdress(Dateiname, CurrentSheet, "Nettowert", Range("A1:C60")) 

функция:

Function searchAdress(inputworkbook As String, inputsheet As String, inputsearchtext As String, inputrange As Range) As Range 

    With Workbooks(inputworkbook).Sheets(inputsheet).Range(inputrange) 
     Set searchAdress = .Find(inputsearchtext, LookIn:=xlValues) 
    End With 

End Function 

Теперь проблема заключается в том, что я получаю сообщение об ошибке 1004 «определенная или объектная ошибка», и я думаю, что, возможно, диапазон не прошел должным образом, потому что отладчик не показывает значение переменной «inputrange» при переходе к функции. пожалуйста, дайте несколько советов о том, как заставить эту функцию работать. Благодарю.

Answer 1

Ваша функция, searchAddress, объявляет inputrange as Range. Это означает, что объект внутри вашей функции является объектом Range.

Поэтому вы не должны использовать его как .Range(inputrange). Вместо этого попробуйте использовать этот код, который лечит его правильно как Range объекта:

Function searchAdress(inputworkbook As String, inputsheet As String, inputsearchtext As String, inputrange As Range) As Range 

    With Workbooks(inputworkbook).Sheets(inputsheet) 
     Set searchAdress = inputrange.Find(inputsearchtext, LookIn:=xlValues) 
    End With 

End Function 

---

Также обратите внимание, что есть еще одна ошибка в коде, который вызывает эту функцию. Вы должны использовать ключевое слово Set при присвоении возвращаемого значения для вашей nettowertadresse переменного:

Set nettowertadresse = searchAdress(Dateiname, CurrentSheet, "Nettowert", Range("A1:BA2")) 

В противном случае вы будете испытывать ошибки времени выполнения «91», который вы упоминаете в your follow-up question.

Answer 2

вы добавить диапазон к rangeobject в вашей функции, ваша функция выглядит так, то:

With Workbooks(inputworkbook).Sheets(inputsheet).Range(Range("A1:C60")) 
     Set searchAdress = .Find(inputsearchtext, LookIn:=xlValues) 
    End With 

Вы должны изменить это:

Function searchAdress(inputworkbook As String, inputsheet As String, inputsearchtext As String, inputrange As String) As Range 

    With Workbooks(inputworkbook).Sheets(inputsheet).Range(inputrange) 
     Set searchAdress = .Find(inputsearchtext, LookIn:=xlValues) 
    End With 

End Function 

А потом передать это функции:

nettowertadresse = searchAdress(Dateiname, CurrentSheet, "Nettowert", "A1:C60")