Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
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

Wie kann ich SourceData mit Variablen definieren?

Wie kann ich SourceData mit Variablen definieren?
Volker
Hallo zusammen,
ich will in einem Makro für eine Pivot-Tabelle den Bereich der Ursprungsdaten passend angeben (ändert sich nämlich).
Letzte Zeile und letzte Spalte sind bekannt (LetzteZ, LetzteSp).
Mit festen Werten ist das Erstellen der Pivot-Tabelle kein Problem:
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"A_Tabelle3!R1C1:R140C21")
.CreatePivotTable TableDestination:="'Roh-Matrix'!R3C1", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion10
End With
Ich würde aber gern LetzteZ und LetzteSp benutzen, ungefähr so:
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"A_Tabelle3!R1C1:R & LetzteZ & C & LetzteSp & ")
.CreatePivotTable TableDestination:="'Blatt2'!R3C1", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion10
End With
Leider liefert das die Fehlermeldung
Laufzeitfehler '1004': Bezug ist ungültig.
und der Cursor bleibt auf der Zeile ".CreatePivotTable..." stehen.
Kann mir jemand einen Tipp geben, wie das zum Laufen kommt?
Danke vorab,
Volker

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wie kann ich SourceData mit Variablen definieren?
13.04.2010 19:50:55
Rudi
Hallo,
"A_Tabelle3!R1C1:R" & LetzteZ & "C" & LetzteSp
Gruß
Rudi
AW: Wie kann ich SourceData mit Variablen definieren?
15.04.2010 16:33:49
Volker
Danke, Rudi - das funktioniert.
Aber leider meldet sich VBA danach mit
Laufzeitfehler '1004':
Die PivotFields-Eigenschaft des PivotTable-Objektes kann nicht zugeordnet werden.
Nach Klick auf "Debuggen" bleibt der gelbe Balken auf der Zeile "With ActiveSheet.PivotTables("PivotTable2").PivotFields("Gruppenname")" stehen in folgendem Code, der direkt nach dem Erzeugen der Pivot-Tabelle steht und VORHER (also mit festen Werten anstelle der Variablen LetzteZ und LetzteSp) funktioniert hat ("Gruppenname" ist dabei eine Spaltenüberschrift):
'*** Gruppierungsfelder definieren***
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Gruppenname")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").PivotFields("Gruppenname").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
Woran liegt das denn nun wieder?
Danke für jeden Tipp vorab,
Volker
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige