Makro läuft nach Versionswechsel nicht mehr
22.07.2005 10:08:30
Jutta
mein Makro läuft nicht mehr nach Umstellung von Excel 2000 auf Excel 2003.
Hat sich wohl etwas im Befehl geändert.
Das Makro hat, wenn man das Seitenfeld der Pivottabelle in Worksheet PIVOT_BY geändert hat, automatisch das selbe Feld in Pivottabelle in Worksheet PIVOT_PY angepasst.
Sub PivotAngleichen()
Dim strSeite As String
Dim wksPIVOT_BY As Worksheet
Dim wksPIVOT_PY As Worksheet
Set wksPIVOT_BY = ThisWorkbook.Worksheets("PIVOT_BY")
Set wksPIVOT_PY = ThisWorkbook.Worksheets("PIVOT_PY")
'country
strSeite = wksPIVOT_BY.PivotTables("BY").PivotFields("country").CurrentPage
wksPIVOT_PY.PivotTables("PY").PivotFields("country").CurrentPage = strSeite
'u.s.w.
End Sub
Und da hängt das Makro
wksPIVOT_PY.PivotTables("PY").PivotFields("country").CurrentPage = strSeite
mit der Fehlermeldung:
Laufzeitfehler '1004':
Die Methode 'PivotTables' für das Objekt'_Worksheet'ist fehlgeschlagen.
Was muss ich ändern ?
Gruß
Jutta