ich habe folgenden Code.
Sub PIVOT_Aktualisieren()
' PIVOT_Aktualisieren Makro
' Tabelle aktualisieren
' Tastenkombination: Strg+a
With Worksheets("Projekt- und Mitarbeitersicht")
.PivotTables("PivotTable3").PivotCache.Refresh
.Range("K5").Formula = "='[T:\05_Projekte\02_PIS - Arbeitsdatei\PIS - Planungsdatei - _
_
in Bearbeitung.xlsm]Projektinformationssystem'!$B$18"
.Range("K5") = .Range("K5")
.Range("K6").Formula = "='[T:\05_Projekte\02_PIS - Arbeitsdatei\PIS - Planungsdatei - _
_
in Bearbeitung.xlsm]Projektinformationssystem'!$B$20"
.Range("K6") = .Range("K6")
.Range("K7") = Now
End With
End Sub
bei 32 bit läuft dieser Code, bei 64 bit stürzt Excel ab.
in der Zeile
.PivotTables("PivotTable3").PivotCache.Refresh
vor einer Woche soll es noch gegangen sein.
Gruß Hajo