Name intelligente Tabelle

Guten Morgen,
nach einigen Jahren Pause in VBA versuche ich mich mal wieder an einer neuen Aufgabe.
Ich habe das meiste, wenn auch nicht sehr elegant, umgesetzt bekommen, stocke aber bei einem Problem.
Im wesentlichen möchte ich, unabhängig seiner Position eine intelligente Tabelle finden, den Namen auslesen in einer Variablen merken und im Anschluss weiterverwenden.
(Ziel soll sein, das der Benutzer das Tabellenblatt kopieren und die intelligente Tabelle umbennenen oder verschieben kann und das Makro dennoch funktioniert.)
Ich habe einen Codeschnipsel gefunden, der in der Lage ist die Tabelle in dem Worksheet zu finden und den Namen auszugeben.
Aber ich schaffe es nicht den Namen für die weitere Verwendung zu speichern. Ich sende den Schnipsel mal mit:


For Each objekt In Sheets(Blatt).ListObjects
MsgBox objekt.Name
Next

Tatsächlich existiert in dem Worksheet auch immer nur eine einzelne intelligente Tabelle. Aber leider habe ich keine Ahnung wie ich das umsetzen muss, das er diese einzelne Tabelle sucht und den Namen findet. Wenn ich den Code nämlich richtig verstehe, würde er so lange suchen, bis er alle Tabellen gefunden hat.
Kann mir da Bitte jemand bei helfen?
Liebe Grüße
Steve

Hallo Karin,
ich habe, so glaube ich eine Teillösung erhalten.
Hab mal ein Makro aufgezeichnet, bei dem ich die Pivotquelle umbenenne, also eine andere Quelle zuweise.
Das ist dabei herausgekommen:


    ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ( _
"GES Unter dem Regenbogen!PivotTable2")

Im Prinzip könnte ich das ja nehmen um zu Beginn des Makros die Verknüpfung herzustellen. Damit habe ich direkt sicher gestellt, das die Verknüpfung wirklich zur richtigen Tabelle geht.
Im Kontext deiner Lösung wäre dann
"GES Unter dem Regenbogen" meine intelligente Tabelle.
Nur das ich es nicht schaffe das "GES Unter dem Regenbogen" durch die Variable "Tabelle" auszutauschen.
Habe mal die betreffende Stelle dick gemacht
Sub Abgleich()
Dim Blatt As String
Dim Tabelle As String
'
'Application.ScreenUpdating = False
Sheets("MUSTER").Visible = True
Blatt = ActiveSheet.Name
Tabelle = Worksheets(Blatt).ListObjects(1)
ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ( _
"(Tabelle)!PivotTable2")
Sheets("Muster").Select
Range("B4:L4").Select
Selection.Copy
Sheets(Blatt).Select
Range(Tabelle).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
ActiveWorkbook.Worksheets(Blatt).Activate
Sheets("MUSTER").Visible = False
Application.ScreenUpdating = True
End Sub
Kannst du mir sagen, was ich da falsch mache?
Ich Danke dir.
Liebe Grüße
Steve

Forumthread: Name intelligente Tabelle

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Namen intelligenter Tabellen in Excel VBA verwalten

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)