Wie wird der Name einer Tabelle oder einer Pivot-Tabelle in einer Zelle in Excel angezeigt?
In diesem Artikel wird über die Anzeige eines bestimmten Tabellen- oder Pivot-Tabellennamens in einer Zelle in Excel gesprochen.
Anzeigen des Tabellen- oder Pivot-Tabellennamens in einer Zelle mit VBA-Code
Anzeigen des Tabellen- oder Pivot-Tabellennamens in einer Zelle mit VBA-Code
Der folgende VBA-Code kann Ihnen dabei helfen, einen bestimmten Tabellen- oder Pivot-Tabellennamen in einer Zelle anzuzeigen. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
VBA-Code: Anzeigen des Tabellen- oder Pivot-Tabellennamens 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 Taste Andere + Q Tasten zum Verlassen des Microsoft Visual Basic für Applikationen Fenster.
4. Wählen Sie eine leere Zelle aus und geben Sie die Formel ein =getObjName(A2) in die Formelleiste und drücken Sie dann die Eingabetaste. Siehe Screenshot:
Notizen:
In Verbindung stehende Artikel:
- Wie liste ich alle Tabellennamen in Excel auf?
- Wie kann die Tabelle durch Einfügen einer Tabellenzeile in ein geschütztes Arbeitsblatt in Excel erweitert werden?
- Wie ordne ich die Position von Spalten in einer Tabelle in Excel neu an?
- Wie verstecke ich Nullwertzeilen in der Pivot-Tabelle?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!