Danke
Sub TabellenName()
If Not ActiveCell.ListObject Is Nothing Then
MsgBox "Name der Tabelle: " & ActiveCell.ListObject.Name
Else
MsgBox "Aktive Zelle liegt nicht in einem ListObject"
End If
End Sub
Viele GrüßeDie 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