habe im XlStart Ordner eine Datei hinterlegt, die beim Starten von Excel automatisch geladen wird mit unten stehenden Modul.
Wenn ich jetzt eine andere Datei öffne und das Modul anwende greift er zwar auf die Daten dieser Datei zu gibt allerdings das Ergebnis auf dem dritten Blatt der beim Excelstart geöffneten Datei aus. Ich möchte aber das er die Ergebnisse immer auf dem dritten Arbeitsblatt ausgibt vonwo er die Daten entnimmt.
Wie kann ich dies realisieren???
Sub KostenSt()
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Tabelle1!C1:C4", TableDestination:="[" & ThisWorkbook.Name & "]" & "Tabelle3!R1C1", TableName _
:="Pivot-Tabelle1"
ActiveSheet.PivotTables("Pivot-Tabelle1").AddFields RowFields:="KostenSt"
With ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("Saldo")
.Orientation = xlDataField
.Name = "Summe - Saldo"
.Function = xlSum
.NumberFormat = "0.00"
End With
Application.CommandBars("PivotTable").Visible = False
End Sub
Gruß
Christine