Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1412to1416
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
Inhaltsverzeichnis

SourceData in Pivotmakro anpassen

SourceData in Pivotmakro anpassen
11.03.2015 09:56:21
Sarah
Hallo ihr Lieben, könnt ihr mir sagen ob und wie ich in VBA das SourceData so verändern kann, dass es automatisch die letzte Zeile nimmt anstatt einer vorgegebenen Zeilenzahl.
Im Moment sieht es so aus:
Range("A1:B10001").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle2!R1C1:R10001C2"
, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle3!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14
Sheets("Tabelle3").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Aussteller/Produkt")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("PIs"), "Summe von PIs", xlSum
Range("B4").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Aussteller/Produkt"). _
AutoSort xlDescending, "Summe von PIs", ActiveSheet.PivotTables("PivotTable1"). _
PivotColumnAxis.PivotLines(1), 1
Das erste würde ich dann einfach in Range("A1:B" & letzteZeile).Select ändern (natürlich nachdem ich letzteZeile definiert habe), aber wie kann ich das "Tabelle2!R1C1:R809C2" entsprechend anpassen?
Wäre sehr dankbar wenn mir jemand helfen könnte :)
LG

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

Betreff
Datum
Anwender
Anzeige
Tabelle1!R1C1R" &letzteZeile&"C2" owT
11.03.2015 10:02:06
Rudi

AW: Tabelle1!R1C1R" &letzteZeile&"C2" owT
11.03.2015 10:51:53
Sarah
Schonmal vielen Dank für die schnelle Antwort!
Jetzt krieg ich allerdings nen Fehler!
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle2!R1C1R" & letzteZeile & "C2", Version:=xlPivotTableVersion14).CreatePivotTable
TableDestination:="Tabelle3!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14

ist jetzt rot und er meckert, dass das Argument nicht optimal ist.

AW: Tabelle1!R1C1R" &letzteZeile&"C2" owT
11.03.2015 10:54:40
Sarah
Sorry, optional nicht optimal

AW: Tabelle1!R1C1R" &letzteZeile&"C2" owT
11.03.2015 10:56:43
Rudi
Hallo,
sorry, : vergessen.
"Tabelle2!R1C1:R" & letzteZeile & "C2"
Gruß
Rudi

Anzeige
AW: Tabelle1!R1C1R" &letzteZeile&"C2" owT
11.03.2015 11:02:46
Sarah
Das hatte ich schon angepasst, geht immernoch nicht :(

AW: Tabelle1!R1C1R" &letzteZeile&"C2" owT
11.03.2015 11:25:09
Rudi
Hallo,
fehlt die evtl. ein _?
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle2!R1C1R" & letzteZeile & "C2", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle3!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14
sonst lad mal die Mappe hoch
Gruß
Rudi

AW: Tabelle1!R1C1R" &letzteZeile&"C2" owT
11.03.2015 13:33:33
Sarah
Vielen lieben Dank, der Unterstrich war's!!
Tag gerettet :)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige