Диапазон VBA от String

Это немного глупо, но я застрял на некоторое время в этом простом утверждении:

<code>    Dim range1 as Range
    Dim mysheet as String
    Dim myrange as String

    mysheet = "Sheet1"
    range = "A1:A10"

range1 = Worksheets(mysheet).Range(myrange)
</code>

Я тестирую все решения, которые я нашел в Интернете, например,этот, этот а такжеэтот, но ничего.

Все время он выдает мне ошибки: 1004 "Ошибка, определенная приложением" или "объектная переменная или не установлена".

Я пробовал следующее:

<code>range1 = ThisWorkbook.Worksheets(mysheet).Range(myrange)

range1 = ActiveWorkbook.Worksheets(mysheet).Range(myrange)

range1 = Sheets(mysheet).Range(myrange) (and the combinations above)

range1 = Worksheets(mysheet).Range(Cells(1,1), Cells(1,10)) (and the combinations with This/Active workbook)
</code>

а также

<code>with This/ActiveWorkbook
range1 = .Worksheets(mysheet).Range(myrange)
end with
</code>

Никто не работал.

Это действительно глупая вещь, но я застрял на некоторое время: s

Может кто-нибудь мне помочь?

Действительно спасибо заранее.

С наилучшими пожеланиями,

Ответы на вопрос(1)

Решение Вопроса

Set range1 = Worksheets(mysheet).Range(myrange)
 02 мая 2012 г., 11:41
+1 Хороший :-)
 Christian Vielma01 мая 2012 г., 22:28
Действительно спасибо ... Я знал, что это было действительно просто, но я был слепым.

Ваш ответ на вопрос