Sub test()
Dim i As Long
Dim PrüfZelle As Range
Set PrüfZelle = Range("A1")
With PrüfZelle.Worksheet
For i = 1 To .ListObjects.Count
If Not Intersect(PrüfZelle, .ListObjects(i).Range) Is Nothing Then Exit For
Next
If i > .ListObjects.Count Then
MsgBox "Zelle " & PrüfZelle.Address(0, 0) & " ist kein Bestandteil eines Listobjektes"
Else
MsgBox "Zelle " & PrüfZelle.Address(0, 0) & " gehört zu: " & .ListObjects(i).Name
End If
End With
End Sub
Sub test()
Dim LiOb As ListObject
Dim PrüfZelle As Range
Set PrüfZelle = Range("A100")
With PrüfZelle.Worksheet
For Each LiOb In .ListObjects
If Not Intersect(PrüfZelle, LiOb.Range) Is Nothing Then Exit For
Next
If LiOb Is Nothing Then
MsgBox "Zelle " & PrüfZelle.Address(0, 0) & " ist kein Bestandteil eines Listobjektes"
Else
MsgBox "Zelle " & PrüfZelle.Address(0, 0) & " gehört zu: " & LiOb.Name
End If
End With
End Sub
Do while Intersect(Range(...), DeinListobjekt.Range) is Nothing
hier der Code, um das Listobjekt um eine Spalte zu erweitern
Loop