Makro anpassen
Maze
ich habe in zwei Tabellenblättern Datenbereiche auf die ich wahlweise mit meiner Pivot switchen möchte und hoffe, mit diesem Makro eine Lösung basteln zu können. Er stammt aus einem Buch und will nicht...
Kann mir bitte jemand helfen. Die Pivot heißt PivotTable1 ist im Blatt "Umsatz per Gebiet"
und die beiden Datenblätter heißen "Daten" und "Daten 2". Mit zwei Makros müßte das doch gehen, oder.
Sub Bereich ()
Dim pt As PivotTable
Dim Bereich As Range
Set Bereich = Sheets("Daten").UsedRange
ActiveWorkbook.Names.Add_
Name:="PivotBereich",_
RefersTo:=Bereich, Visible:=True
Bereich.Select
For Each pt In Sheets("Umsatz per Gebiet").PivotTables
With pt
.PivotTableWizard SourceType:=x1Database, _
SourceData:="PivotBereich"
EndWith
pt.RefreshTable
Next pt
End Sub
Viele Grüße
Matthias
Anzeige