Ich habs im Spotlight schon versucht, aber da konnte mir leider niemand helfen:
Ich hab folgendes Problem: Ich habe eine Excel Tabelle, welche 3 Pivot Tabellen unter einander mit einem Makro erstellt. Bis jetzt hatte ich immer fixe Zellen Angaben. Doch da die Daten jetzt grösser wurden, werden manchmal Teile von der zweiten und dritten Pivot Tabelle überschrieben. Da ich die Zellen nicht immer manuell nachtragen will, habe ich das Makro umgeändert. Es sucht jetzt die letzte Zelle der ersten Tabelle und erstellt 3 Zeilen weiter unten die zweite Pivot Tabelle. Das einzige Problem ist der Code, welcher den Bereich der Pivot angibt, dadurch wird wieder alles fix. Wisst ihr, wie ich diesen Befehl umändern muss?
ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, SourceData:= _
"Tableau croisé dynamique14", TableDestination:="R76C1", TableName:= _
"Tableau croisé dynamique17"
Vielleicht machts dieser Code verständlicher:
Cells(Cells(90, 1).End(xlUp).Row + 3, 1).Select
ActiveCell.FormulaR1C1 = "Rekapitulation Bewegungen Kombination"
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell(ActiveCell().End(xlUp).Row + 2).Select
ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, SourceData:= _
"Tableau croisé dynamique14", TableDestination:="R76C1", TableName:= _
"Tableau croisé dynamique17"
ThX