Dynamisierung von Pivottabellen - Ist das möglich?

Question

Hallo Ihr lieben,

ich habe mal eine Frage.

Gibt es eine Möglichkeit die Pivottabellen autotmatisch zu dynamisieren?

z.B.:
Wenn ich einen Zugangswert anlege in eine Tabelle1, soll er automatisch diesen Wert in die Pivottabelle (die ist in einer seperaten Tabelle = Tabelle2) mit aufgenommen werden.

Es kann gerne eine VBA- Programmierung sein. :-S

VIelen Dank und liebe Grüße
Nick2507

Answer 1

Hallo Ihr Lieben,

habe jetzt noch mal eine dynamische Pivottable Programmierung vorgenommen aber es kommt eine Fehlermeldung '1024'
Ich habe den Fehler mittels Pfeil makiert. Hoffe, mir kann jemand weiterhelfen?

Private Sub PivotDynamisierungCmd_Click()
Dim pt As PivotTable
Dim Bereich As Range

Set Bereich = Sheets("Zugänge").UsedRange
=> ActiveWorkbook.Names.Add _
=> Name = "Zugang", _
=> RefersTo:=Bereich, Visible:=True
Bereich.Select

For Each pt In Sheets(1).PivotTable
With pt
.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Zugänge"
End With
pt.RefreshTable
Next pt
End Sub

meine aktuelle Datei:

http://www.file-upload.net/download-3722224/Lagerbestand4.xls.html">
http://www.file-upload.net/download-3722224/Lagerbestand4.xls.html

Gruß
Nick2507

Answer 2

Guten Morgen Ihr Lieben,

habe den Fehler gefunden, jedoch schaffe ich es nicht, dass die Pivottabelle in der Tabelle "Auswertung Zugänge" sich dynamisch erweitert, wenn ich in die Tabelle "Zugänge" einen neuen Zugang via VBA festhalte. :-(

Die aktuelle Fehlermeldung habe ich jetzt integriert.


Korrektur meines Programms:

Private Sub PivotDynamisierungCmd_Click()
Dim pt As PivotTable
Dim Bereich As Range

Set Bereich = Sheets("Zugänge").UsedRange
ActiveWorkbook.Names.Add _
Name: = "Zugang", _
RefersTo:=Bereich, Visible:=True
=> Bereich.Select

For Each pt In Sheets(1).PivotTable
With pt
.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Zugänge"
End With
pt.RefreshTable
Next pt
End Sub

Die Datei:

www.file-upload.net/download-3722224/Lagerbestand4.xls.html

Answer 3

Hallo liebe Experten,

kann mir wirklich keiner bei meinem Pivottable Problem helfen??? Ich verzweifel wirklich... :-(

Gruß
Nick

Answer 4

Hallo Nick,

Dass ich von VBA keine Ahnung habe ist hinlänglich bekannt, trotzdem habe ich recherchiert:

mit VBA:
Link1
Link2

ohne VBA:
Link1
Link2

Ich habe schon selbst Pivot Tabellen erstellt, aber nicht auf so einem hohen Niveau, könnte mir aber vorstellen, dass zumindest Anregungen dabei sind.

Gruß

Paul1

Answer 5

Hallo Paul1,

ich danke dir. :-) Du bist jetzt schon weiter als ich. ;-)
Ich probiere jetzt auch gleich mal alles aus und gebe ein Feedback. :-)

Vlt. kann ich dann auch ein funktionierenden Code hier hineinstellen.^^

Gruß
Nick

Answer 6

Hallo Paul1,

du bist echt genial!!!

Link1 ohne VBA hat einwandfrei geplappt. Ich werde es jetzt mittels VBA Makrorecorder aufnehmen und posten.

Danke dir!!!!

Gruß
Nick