Помогите разобраться с ошибкой

[fishh]

Помогите пожалуйста.

В чем может быть ошибка? Выставляю код:

Private Sub UserForm_Activate()
CommandButton33.Caption = Format(Date, "dd.mm.yy")
Label30.Caption = Format(Sheets("абв").Cells(2, 2).Value, "dd.mm.yy")

на последней строке тормозит и говорит Error 9 (Subscript out of range)

Заранее спасибо

[sergeyvg]

нужно проверить такой оператор, скорее всего он уже не работает

Код: Выделить всё

Label30.Caption = Sheets("абв").Cells(2, 2).Value

[GSerg]

Значит, листа "абв" нет.

[algol2]

А почему не =Sheets("абв").Cells(2, 2).Text ?

[GSerg]

Потому что листа "абв" нет.

[fishh]

Лист "абв" есть.
и Label30.Caption = Sheets("абв").Cells(2, 2).Value работает.
В ячейке Cells(2, 2) содержится дата. Год в формате 2005 (4 числа). Мне нужно чтобы формат состоял из 2 чисел.

Я знаю как в Win настроить, чтобы формат даты всегда был двух значным, но мне это не надо.

Помогите мне, пожалуйста!!!

[sergeyvg]

у меня не рассеялись сомнения в том, что активна в этот момент другая книга, в которой действительно нет листа "абв"

есть еще вариант, что существует самодельная фанкция format, что маловероятно, но проверяемо, например так:

Код: Выделить всё

Label30.Caption = Application.WorksheetFunction.Text(Sheets("абв").Cells(2, 2).Value, "dd.mm.yy")

[fishh]

Все, большое спасибо всем. Я разобралась. На самом деле. Когда становится активным другой xls файл, то лист абв прога не находит. Проверила несколькими опытами

Перед строчкой
Label30.Caption = Format(Sheets("абв").Cells(2, 2).Value, "dd.mm.yy")
Добавила
Workbooks("123.xls").Activate

Код из предыдущего сообщения тоже испробовала, все работает.
Большое спасибо.