Wie zeigt man den Namen einer Tabelle oder Pivot-Tabelle in einer Zelle in Excel an?

Dieser Artikel erklärt, wie Sie den Namen einer bestimmten Tabelle oder Pivot-Tabelle in einer Zelle in Excel anzeigen können.

Anzeigen des Namens einer Tabelle oder Pivot-Tabelle in einer Zelle mit VBA-Code

Anzeigen des Namens einer Tabelle oder Pivot-Tabelle in einer Zelle mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen, einen bestimmten Tabellen- oder Pivot-Tabellennamen in einer Zelle anzuzeigen. Bitte gehen Sie wie folgt vor.

1. Drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren Sie dann den unten stehenden VBA-Code in das Modulfenster.

VBA-Code: Anzeige des Namens einer Tabelle oder Pivot-Tabelle in einer Zelle

Function getObjName(rng As Range) As String
'Updated by Extendoffice 20180420
    Dim xTable As ListObject
    Dim xPivotTable As PivotTable
    Dim xTableName As String
    Dim xPtName As String
    On Error Resume Next
    xTableName = ""
    xPtName = ""
    Set xTable = rng.Cells(1).ListObject
    xTableName = "Table[" & xTable.Name & "]"
    If xTable Is Nothing Then
        Set xPivotTable = rng.Cells(1).PivotTable
        xPtName = "Pivot [" & xPivotTable.Name & "]"
    End If
    getObjName = xTableName & xPtName
End Function

3. Drücken Sie die Tasten Alt + Q, um das Microsoft Visual Basic for Applications-Fenster zu schließen.

4. Wählen Sie eine leere Zelle aus, geben Sie die Formel =getObjName(A2) in die Formel-Leiste ein und drücken Sie dann die Eingabetaste. Siehe Screenshot:

Hinweise:

Verwandte Artikel:

• Wie listet man alle Tabellennamen in Excel auf?
• Wie behält man die Erweiterbarkeit einer Tabelle bei, indem man eine Zeile in einem geschützten Arbeitsblatt einfügt?
• Wie ändert man die Reihenfolge der Spalten in einer Tabelle in Excel?
• Wie blendet man Zeilen mit Nullwerten in einer Pivot-Tabelle aus?