Microsoft Office Tutorials and References
In Depth Information
12.13 Die VBA -Ecke
12.13 Die VBA-Ecke
Makro Tabelle2Pivot
Das Makro sucht die Tabelle und merkt sich den Bereich
in einer Variablen. Damit erstellt es den
Monatskostenbericht.
Viele Handgriffe führen zu Pivot-Berichten, der
Makrorekorder nimmt Ihnen einige Arbeit ab. Zeichnen Sie die
Aktionen auf, legen Sie Schaltflächenobjekte in der
Tabelle an, und verknüpfen Sie diese mit den Makros.
Sub Tabelle2Pivot()
Dim aktTabelle As ListObject, pbereich
’ Objektvariable für die Datenbank
Set aktTabelle = ActiveSheet.ListObjects(1)
’ Adresse der ersten Tabelle festhalten
pbereich = aktTabelle.DataBodyRange.Address
’ Bereich markieren und Kopfzeile mitnehmen
Range(pbereich).Select
pbereich = Selection.CurrentRegion.Address
’ Pivot-Bericht wird aus der Tabelle erstellt
’ (Recorder-Aufzeichnung)
ActiveWorkbook.PivotCaches _
.Add(SourceType:=xlDatabase, _
SourceData:=pbereich).CreatePivotTable _
TableDestination:=““, TableName:=“PivotTable3“, _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard _
TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables(“PivotTable3“).AddFields _
RowFields:=“Datum“, PageFields:=“Medium“
With ActiveSheet.PivotTables(“PivotTable3“) _
.PivotFields(“Betrag“)
.Orientation = xlDataField
.Caption = “Kosten“
End With
Range(“A5“).Select
Selection.Group Start:=True, End:=True,
Periods:=Array(False, False, False, _
False, True, False, False)
End Sub
Aber Vorsicht! Der Makrorekorder kennt keine
Tabellen, er zeichnet absolute Bezüge auf ($A$1:$D$32). Hier
müssen Sie eingreifen.
Das Makro finden Sie auf der Buch-CD in
der Mappe VBA Pivot.xlsm .
CD-ROM
Listing 12.1 Makro für automatischen Pivot-Bericht aus einer
Tabelle
 
Search JabSto ::




Custom Search