Ошибка выполнения VBA Application.Caller

У меня есть следующий код в VBA:

Sub Kontrollkästchen_KlickenSieAuf() With ThisWorkbook.Sheets("Hinterlegungsmatrix Auswahl") Dim i, j, rowx, columnx As Integer rowx = Application.Caller.row 'I got here the run time error (object required)-->.row doesn't work columnx = Application.Caller.column 'I got here the run time error (object required)-->.column doesn't work If Worksheets("Hinterlegungsmatrix Auswahl").Cells(rowx, columnx).Value = True Then For i = 6 To 22 For j = 3 To 22 If (Worksheets("Hinterlegungsmatrix Auswahl").Cells(i, j).Interior.Color = RGB(250, 192, 144)) Or (Worksheets("Hinterlegungsmatrix Auswahl").Cells(i, j).Interior.Color = RGB(83, 142, 213)) Or (Worksheets("Hinterlegungsmatrix Auswahl").Cells(i, j).Interior.Color = RGB(242, 221, 220)) Then Worksheets("Hinterlegungsmatrix Auswahl").Cells(i, j).Value = True End If Next j Next i End If End With End Sub 

Я хотел бы получить ячейку, в которой активирован флажок, но он выдает ошибку времени выполнения, wenn я использую Application.Caller.Address или .Row или .Column. Я назначил флажок sub Kontrollkästchen_KlickenSieAuf (), я был бы очень доволен, если кто-то может мне помочь.

поздравил

Application.Caller – это строка (имя элемента управления), а не объект, а флажок не имеет свойства строки. Вам необходимо использовать:

 ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row 

например.

  • Ошибка времени выполнения 13: несоответствие типов
  • Попытка запуска функции вызывает ошибку времени выполнения 424
  • Ошибка времени выполнения VBA 91. Переменная объекта установки проблемы
  • Код ошибки VBA. Обязательный объект - тройной флажок, но все еще не работает.
  • Ошибка выполнения 13 в цикле for i, которая использовалась для работы
  • Запись данных из Excel в Word
  • Ошибка выполнения 1004: не удалось вставить метод класса рабочей таблицы
  • Ошибка времени выполнения VBA 1004 Диапазон ошибок Object_Global
  • Ошибка выполнения 429; Невозможно создать объект (Excel 2007)
  • Застревание в Runtime Ошибка «1004» - метод диапазона отказался
  • Ошибка времени выполнения 424. VBA, если рабочий лист называется «Выполняется», затем выполните код Else Msg Box
  • Давайте будем гением компьютера.