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
Gruß Daniel
Do while Intersect(Range(...), DeinListobjekt.Range) is Nothing
hier der Code, um das Listobjekt um eine Spalte zu erweitern
Loop
Achtung, endlosschleifengefahr, wenn das Listobjekt die Zelle nicht trifft.