Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nochmal zu Pivotabelle

Nochmal zu Pivotabelle
11.07.2003 14:22:13
Heike
Hi Otto,
ich hab es auf einen allgemeines Bespiel angepasst:
Pivot-Grundaten sind in: Tabelle1
Pivot-Tabelle selber in: Tabelle2
Die Mappe heißt: Mappe1
Der Bereich der jetzigen Pivotgrundaten ist A1:C15
PivotTablename: PivotTable1

Sub PivotBereich()
Dim intZeilen As Integer
Dim strSource As String
Dim wksPivotGrund As Worksheet
Dim wksPivotTabellen As Worksheet
Set wksPivotGrund = _
Workbooks("Mappe1.xls").Worksheets("Tabelle1")
Set wksPivotTabellen = _
Workbooks("Mappe1.xls").Worksheets("Tabelle2")
With wksPivotGrund
intZeilen = .Cells(.Rows.Count, 1).End(xlUp).Row
strSource = .Range(.Cells(1, 1), .Cells(intZeilen, 15)). _
Address(RowAbsolute:=True, ColumnAbsolute:=True, _
ReferenceStyle:=xlR1C1, External:=True)
End With
wksPivotTabellen.PivotTableWizard SourceType:=xlDatabase, _
SourceData:=strSource, _
TableDestination:=wksPivotTabellen.Range("A1"), _
TableName:="PivotTable1"
End Sub

Die letzten 4 Zeilen funktionieren immer noch nicht
Irgendwie kommich nicht drauf

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nochmal zu Pivotabelle
11.07.2003 17:15:36
Otto
Hallo Heike,
Sieh Dir mal den Archivbeitrag Pivottabellen (Makro) an, da habe ich die Frage direkt beantwortet.
Warum bist Du nicht in diesem alten Thread geblieben? So habe ich Deine Rückfrage nur durch puren Zufall mitbekommen.
Gruß Otto

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige