Wie kann man den Namen eines Arbeitsblatts oder einer PivotTable in einer Zelle in Excel anzeigen?
Dieser Artikel zeigt Ihnen, wie Sie den Namen einer bestimmten Tabelle oder einer PivotTable direkt in einer Zelle in Excel anzeigen können.
Anzeige des Tabellen- oder PivotTable-Namens in einer Zelle mithilfe von VBA-Code
Anzeige des Tabellen- oder PivotTable-Namens in einer Zelle mithilfe von VBA-Code
Der folgende VBA-Code zeigt Ihnen, wie Sie den Namen einer festgelegten Tabelle oder einer PivotTable in einer Zelle anzeigen können. Gehen Sie dazu wie folgt vor:
1. Drücken Sie die Alt+F11-Tasten, 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 anschließend den folgenden VBA-Code in das Modulfenster.
VBA-Code: Anzeige des Tabellen- oder PivotTable-Namens 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 Function3. Drücken Sie die Alt+Q-Tasten, um das Microsoft Visual Basic for Applications-Fenster zu schließen.
4. Wählen Sie eine leere Zelle aus, geben Sie in der Formelleiste die Formel =getObjName(A2) ein und drücken Sie anschließend die Eingabetaste. Siehe Screenshot:
Hinweise:
Verwandte Artikel:
- Wie kann man alle Tabellennamen in Excel auflisten?
- Wie behält man die Erweiterbarkeit einer Tabelle bei, wenn man eine Tabellenzeile in ein geschütztes Excel-Arbeitsblatt einfügt?
- Wie kann man die Reihenfolge von Spalten in einer Excel-Tabelle ändern?
- Wie blendet man Zeilen mit dem Wert „Null“ in einer PivotTable aus?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins