Hallo iedereen,
Ik wil controleren of mijn activecell zich in een tabel bevind. Deze vraag is dmv jullie prima opgelost.
Ik wil deze controle nu vaker gaan gebruiken op verschillende sheets. Om niet elke keer deze code te schrijven schrijf ik de code eenmalig weg in een module en deze roep ik telkens op.
Ik roep de code als volgt op:
Dit is de module
Als de cell zich in de tabel bevind werkt de code prima. Maar als de code zich niet in de cell bevind krijg ik een foutmelding:
Fout 91 Objectvariabele of blokvariabele With niet ingesteld
Doe ik iets verkeerds?
Ik denk dat mijn vba code de tabel niet ziet. Maar dat vang ik toch op?
Alvast bedankt.
Ik wil controleren of mijn activecell zich in een tabel bevind. Deze vraag is dmv jullie prima opgelost.
Ik wil deze controle nu vaker gaan gebruiken op verschillende sheets. Om niet elke keer deze code te schrijven schrijf ik de code eenmalig weg in een module en deze roep ik telkens op.
Ik roep de code als volgt op:
Code:
If CheckCellInTabel("testversie") Then 'testversie is de naam van de tabel
MsgBox "niet in cell"
Else
MsgBox "in cell"
End If
End Sub
Dit is de module
Code:
Public Function CheckCellInTabel(Tabelnaam As String) As Boolean
CheckCellInTabel = False
If Intersect(ActiveCell, ActiveSheet.ListObjects(Tabelnaam).DataBodyRange) Then
CheckCellInTabel = True
Else
CheckCellInTabel = False
End If
End Function
Als de cell zich in de tabel bevind werkt de code prima. Maar als de code zich niet in de cell bevind krijg ik een foutmelding:
Fout 91 Objectvariabele of blokvariabele With niet ingesteld
Doe ik iets verkeerds?
Ik denk dat mijn vba code de tabel niet ziet. Maar dat vang ik toch op?
Alvast bedankt.