Pivottable SourceData:= was ist falsch?
12.03.2008 19:50:00
Tobias
kurze Frage für euch kein Problem für mich eine Riesenherausforderung:
Warum aktzepiert er mir folgenden code nicht?
Habe bereits ausgiebig im Forum geforscht, jedoch die Lösung nach viel probieren nicht gefunden!
ich möchte von allen Pivottabellen meines Workbooks die Bezugsquelle (SourceData) ändern.
Bei meinem Code bringt er die Fehlermeldung: Objekt unterstützt die Eigenschaft oder Methode nicht.
Viel. könnt ihr mir ja helfen....
Das ist der Code:
Private Sub CommandButton1_Click()
Dim strSource As String
Dim wksPivotGrund As Worksheet
Dim wksPivotTabellen As Worksheet
Set wksPivotGrund = ActiveWorkbook.ActiveSheet
With wksPivotGrund
strSource = .Range(.Cells(67, 1), .Cells(1500, 37)). _
Address(RowAbsolute:=True, ColumnAbsolute:=True, _
ReferenceStyle:=xlR1C1, External:=True)
End With
For Each wks In ActiveWorkbook.Worksheets
For Each pvt In wks.PivotTables
wks.pvt.PivotTableWizard SourceData:=strSource
Next
Next
End Sub
Vielen Dank vorab!
Gruß Tobias