Office: (Office 2010) Pivot mit VBA erstellen

Hallo Zusammen,

ich versuche vergeblich eine Sub, die ich irgendwann einmal im Netz gefunden habe, auf meine bedürfnisse ab zu ändern. Leider gelingt mir das nicht und ich wäre froh wenn mir jemand von Euch hier weiter helfen könnte.

Die Sub soll mir eine einfache Pivottabelle im selben Sheet erstellen.

Und zwar möchte ich die Bezeichnung 1 und die Anzahl dessen erhalten. Ist eigentlich einfach aber, wie gesagt, ich bekomme es nicht hin.

Danke schon mal im voraus.

Code:

:)

 

benutze doch einfach den Makrorecorder, der ist für solche Sachen nicht schlecht.

 

Hallo,

habe ich ja probiert bekomme es aber nicht hin variable hin.

 

Hallo,

wie gesagt, was der Makrorecorder aufzeichnet bekomme ich nicht Varabel hin.

Ich benötige hierfür Unterstützung!

Code:

 

man muss nicht erwähnen was man variabel haben will die meisten wissen das , nur ich nicht. Ich bin dann raus.

 

Hallo,

warst du je drin?

 

Hallo zusammen,

leider ist mein anliegen noch nicht gelöst.
Da sich hier scheinbar keiner findet, der mir weiterhilft, muss ich mich wohl in einem anderen Forum umschauen.

 

Hallo Wyatt,

den Datenbezug auf die Pivottabelle kann man schon dadurch dynamisieren, in dem man die Ausgangsdaten in eine strukturierte Liste formatiert:
- 1 Zelle des Datenbereiches markieren
- Register Start / Formatvorlagen / Als Tabelle formatieren
- dieser Liste noch einen passenden Namen geben.

Wenn man so vorgeht, sieht der Vba-Code so aus: Code:

Dann muß man nur noch die Pivottabelle aktualisieren.
Jedes Anfügen und Löschen von Daten wird durch die formatierte Tabellen-Liste an den Pivot-Definition weitergereicht.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,
zuerst einmal vielen Dank, ich dachte schon nicht mehr, dass sich hier jemand um mein anliegen kümmert.

Leider trifft dein Vorschlag noch nicht das was ich meinte.

Mit variabel meinte ich, ich generiere eine Liste mit VBA und möchte dann daraus eine Pivottabelle auf dem neuen Sheet erstellen, dass heisst, dass die Pivottabelle nicht fortlaufend sein darf sondern über eine Variable erstellt wird.
Ich hänge dir noch einmal den Code an der mir speziell ab hier
Code:

probleme bereitet. ich hoffe du findest eine Lösung.

Code:

 

Hallo Wyatt,

Du hast den Sinn & Zweck der 'Formatierten Tabelle' immer noch nicht verstanden. Mit dem Ding!!! kann man wunderbar programmieren und dynamicher ist kein anderes Excel-Objekt.
Dieses in Excel-Vba bezeichnete 'ListObject' hat Vba-Eigenschaften noch & nöcher.
Wenn Du eine Beispiel-Datei bereitstellst, wirst Du staunen, was da alles möglich ist - nur immer kleine Vba-Codes hier veröffentlichen bringt nicht viel.
Meine Erfahrung ist, das die seit Excel 2003 bekannten Listen in den Vba-Foren kaum eine Rolle spielen - weder auf der Excel-Oberfläche, noch in der Vba-Programmierung.
Für mich sind sie aber ein wesentliches Highlight von Excel.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

"

da hast du recht. Zeig es mir bitte.
Anbei wie gewünscht die Datei

 

Hallo Luschi,

habe es mal probiert wie du beschrieben hast, bekomme es aber so auch nicht hin.

Kann es sein das du auch probleme hast, oder warum hast du mir noch keine Lösung aufgezeigt?

 

Hallo Wyatt,

da ich z.Z. eine umfangreiche Datensicherung mache, komme ich erst in ca. 2 h dazu, mich mit Deinem Problem zu beschäftigen.

Gruß von Luschi
aus klein-Paris

 

Hallo Wyatt,

hier mal ein 1. Versuch.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

soweit schon mal gut!

Nun bräuchte ich noch die Anzahl der einzelnen Bezeichnungen.