bei folgendem Problem komme ich leider nicht mehr weiter. Ich kopiere das aktive Tabellenblatt einer Mappe in eine neue Mappe. Nun möchte ich, wenn Pivottabellen enthalten sind, dass im neuen Tabellenblatt die Bezüge zur Quelle nicht mehr bestehen (evtl. nur Werte/Formate). Ich habe nachfolgendes Teilprogramm (von Otto) eingebunden, aber irgendwie scheint sich nicht zu tun. Ich weiß leider auch nicht, wie sich Pivottabellen mit ihrem Bereich kopieren und an identischer Stelle einfügen lassen.
Vielen Dank im Voraus für einen Tipp.
Grüße, Constantin
With ActiveSheet
For Each pvtTabelle In ActiveSheet.PivotTables
'MsgBox pvtTabelle.SourceData
strSource = pvtTabelle.SourceData
If Left(strSource, 1) = "[" Then
intKlammer = InStr(1, strSource, "]", vbTextCompare)
strSource = Mid(strSource, intKlammer + 1)
pvtTabelle.SourceData = strSource
End If
Next pvtTabelle
End With