Pivottabelle per Makro
Drees
ich probiere 50 Pivottabellen per Makro zu erstellen, bekomme aber immer eine Fehlernmeldung:
runtimeError 9
Subscipt out of range
Die Pivottabellen sollen im Tab "PivotKonten" untereinander in Spalte B angefangen bei Zeile 4 erstellt werden. Die Datenquelle befindet sich jeweils in dem Tab "Übersicht Konten" und rutscht immer eine Spalte nach rechts.
Woran liegt der Fehler?
Viele Grüße
Alex
Hier mein Code
For i = 1 To 50
Tabellenname = i
Sheets("PivotKonten").Select
Range("a4").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R4C2:R1991C2,"""")" 'Berechnet Startzeile für nächste Tabelle
positionszeile = Cells(4, 1).Value + 4 'Erste Tabelle startet in Zeile 4
Srcdta = "Übersicht Konten!R4" & "C" & i + 2 & ":R10000C" & i + 2
Position = "PivotKonten!R" & positionszeile & "C2"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Srcdta, Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:=Position, TableName:=Tabellenname, DefaultVersion _
:=xlPivotTableVersion12
'hier kommen noch die Einzelheiten der Tabelle, der Code bricht aber vorher ab
Next