Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon treppche vom 02.07.2019, 15:20 Options
Pivottabellen Namen in Variable speichern
Hallo Leute,
habe ein kleines Problem mit einem Makro, welches ich aufgezeichnet habe. Will eine vorhanden Pivot Tabelle, welche ich wöchentlich in einem bestimmten Layout bekomme durch ein Makro automatisch in ein anderes PivotLayout konvertieren. hierzu wird die Pivot in eine andere Datei kopiert .
Jetzt mein Problem:
Jedesmal wenn ich die Pivot in das Tabellenblatt mit dem Makro kopiere
ändert sich der Tabellen Name in "PivotTableX" .
Kann man mittels VBA den Tabellen Namen jedes mal auslesen lassen und in einer Variablen speichern, so dass das ganze dynamisch wird? Leider fehlt mir das VBA know how.
Danke für eure Hilfe
Gruss Christian
Bsp:
Dim ptname As String
ptname = Auslesebefehl
Range("A9").Select
Application.CutCopyMode = False
ActiveSheet.PivotTables(ptname).PivotFields("Partner Status"). _
Orientation = xlHidden
ActiveWindow.ScrollColumn = 1
habe ein kleines Problem mit einem Makro, welches ich aufgezeichnet habe. Will eine vorhanden Pivot Tabelle, welche ich wöchentlich in einem bestimmten Layout bekomme durch ein Makro automatisch in ein anderes PivotLayout konvertieren. hierzu wird die Pivot in eine andere Datei kopiert .
Jetzt mein Problem:
Jedesmal wenn ich die Pivot in das Tabellenblatt mit dem Makro kopiere
ändert sich der Tabellen Name in "PivotTableX" .
Kann man mittels VBA den Tabellen Namen jedes mal auslesen lassen und in einer Variablen speichern, so dass das ganze dynamisch wird? Leider fehlt mir das VBA know how.
Danke für eure Hilfe
Gruss Christian
Bsp:
Dim ptname As String
ptname = Auslesebefehl
Range("A9").Select
Application.CutCopyMode = False
ActiveSheet.PivotTables(ptname).PivotFields("Partner Status"). _
Orientation = xlHidden
ActiveWindow.ScrollColumn = 1
Ähnliche Themen
SVERWEIS auf PIVOTTABELLEN mit Namen
sickboy1 05.07.2007 - 63 Hits -
Variable wird nicht erkannt
lothar48 12.07.2007 - 19 Hits - 4 Antworten
VBA - Pivottabelle aktualisieren
Tomschi 30.05.2008 - 92 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
