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 Function3. 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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins