Ошибка 424 «Требуемый объект» при попытке вычислить количество используемых строк
Я пытаюсь вычислить количество используемых строк в проекте VBA в Excel 2013, чтобы я мог заполнить его пользовательской формой (каждый раз, когда я нажимаю кнопку «Сохранить», она добавляет новую строку на рабочий лист). Рабочий лист также имеет две строки заголовка, поэтому я не хочу, чтобы они были перезаписаны.
Это должно быть выполнено с помощью следующего кода, который запускается, как только я нажимаю кнопку «Сохранить»:
Private Sub Save_Click() Dim totalRows As Long totalRows = Daten.Cells(Rows.Count, "A").End(xlUp).Row If totalRows < 2 Then totalRows = 2 Else totalRows = totalRows End If ... End Sub
Однако, когда я нажимаю кнопку «Сохранить», я получаю сообщение «424» «Обязательный объект».
- Импорт и экспорт пользовательских форм и модулей
- Заполнение вопросов ComboBox - дублирование значений при каждом выборе поля, а именованный диапазон не заполняется
- Входной ящик заполняет ячейки в таблице
- Добавление изображения в рабочий лист из пользовательской формы (excel vba)
- Измените форму пользователя с помощью защищенных паролем надстроек
Я действительно потерялся здесь – кто-нибудь знает, что я делаю неправильно? Если вам нужно знать больше, скажите мне об этом, потому что я действительно хочу увидеть эту работу.
- Добавление проверки в пользовательскую форму
- Excel - VBA: передать переменную от Sub до Userform
- Текстовое поле VBA, отображающее валюту
- Userform.Show на кнопке формы не распознает пользовательскую форму, получив ошибку 424
- UserForm ComboBox
- Excel / VBA - ошибка времени выполнения 91 возникает только после ввода и выхода из режима разработки
- Форма Показать метод в случае workbook_open в ThisWorkbook ломает фокус
- Двойной щелчок по ячейке в Excel, файл с открытым исходным кодом этой строки в пользовательской форме
Это, похоже, делает трюк (как было предложено в комментариях)
Dim totalRows As Long totalRows = Sheets("Daten").Cells(Rows.Count, "A").End(xlUp).Row If totalRows < 2 Then totalRows = 2 End If