Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivot für Anfänger

Pivot für Anfänger
04.12.2013 09:31:24
Markus
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot für Anfänger
08.12.2013 16:38:47
fcs
Hallo Markus,
du musst auf jeden fall die Tabledestination korrigieren in "Stunden!R3C1" und die Funktion für Stundensummierung muss xlSum sein.
Ob das Ganze als AddInn funktioniert kann ich dir nicht sagen.
Ich auch mal die Objektbezeichnungen vervollständigt und für die erzeugte Pivottabelle eine Objektvariable definiert. Macht den Code etwas übersichtlicher.
Gruß
Franz
Sub Pivot_Erstellen()
Dim x
Dim pvTab As PivotTable
x = "Stunden"
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = x
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"0001!R4C19:R2500C22", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Stunden!R3C1", TableName:="Stunden", _
DefaultVersion:=xlPivotTableVersion14
Set pvTab = ActiveWorkbook.Sheets("Stunden").PivotTables(1)
ActiveWorkbook.ShowPivotTableFieldList = True
With pvTab.PivotFields("Arbeiter")
.Orientation = xlRowField
.Position = 1
End With
With pvTab.PivotFields("Tag")
.Orientation = xlRowField
.Position = 2
End With
With pvTab.PivotFields("Std")
.Orientation = xlRowField
.Position = 3
End With
pvTab.AddDataField pvTab.PivotFields("Std"), "Summe von Std", xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige