Ошибка выполнения 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 (), я был бы очень доволен, если кто-то может мне помочь.

поздравил

• VBA Intersect возвращает ошибку времени выполнения 91: переменная объекта или с заблокированным блоком
• VBA Ошибка времени выполнения 91 Ввод текста из excel в текстовое поле в новом кадре
• Ошибка 6 с длинной переменной в Excel VBA
• Ошибка времени выполнения 13, когда столбец не имеет разных значений
• ошибка времени выполнения 5 в VBA превосходит при работе с массивом

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