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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen