Diesen Code haben wir per Makro aufgezeichnet:
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A1:N3451").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Daten verarbeiten'!R1C1:R3451C14").CreatePivotTable TableDestination:= _
"'[verkauf-20060215.xls]Dummy'!R17C3", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:="Anzahl", _
ColumnFields:="Menge", PageFields:=Array("MWST", _
"Skonto")
ActiveSheet.PivotTables("PivotTable2").PivotFields("Gewicht").Orientation = _
xlDataField
Die FRAGE: - - - - - - - - - - - - - - - -
Wie setze ich das jetzt in VBA um?
"...'Daten verarbeiten'!R1C1:R3451C14")."
und
Wie kann ich aus diesem Name Variablen einsetzen für das DAtum? Die Variable wäre "datumstart"
"...[verkauf-20060215.xls]Dummy'!R17C3", "
Gruß