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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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) 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 Range("A3").Select ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:="Blatt''Tabelle" ActiveWorkbook.Worksheets(Blatt).Activate Sheets("Muster").Visible = False Application.ScreenUpdating = True End Sub

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

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread