Pivot für Anfänger
04.12.2013 09:31:24
Markus
für unsere Werkstattmitarbeiter die in Excel absolute Anfänger sind, will ich ein Add-In erestellen, das in einer bestehenden Tabelle rasch die Stunden summiert.
Das Pivot-Makro habe ich aufgezeichnet, aber das funktioniert im Add-In nicht.
Weiss jemand wo der "Bock" begraben ist.
Die Herkunftstabelle heisst imer 0001 (zwingend) die Pivot-Tabelle soll "Stunden" heissen.
Danke für Mithilfe
Markus
Sub Pivot_Erstellen()
x = "Stunden"
Sheets.Add
ActiveSheet.Name = x
Application.Goto Reference:="R4C19:R2500C22"
Sheets("Stunden").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"0001!R4C19:R2500C22", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle12!R3C1", TableName:="Stunden", _
DefaultVersion:=xlPivotTableVersion14
Sheets("Stunden").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Stunden").PivotFields("Arbeiter")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Stunden").PivotFields("Tag")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Stunden").PivotFields("Std")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Stunden").AddDataField ActiveSheet.PivotTables( _
"Stunden").PivotFields("Std"), "Anzahl von Std", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub