Not enough memory bei VBA Makro
09.11.2006 15:28:15
HeinzS
ich habe schon wieder ein Problem und hoffe ihr könnt mir helfen. Ich habe mit Eurer Unterstützung mir ein Re-Rating Sheet gebastelt. Es funktioniert, solange nur rund 5000 Zeilen kalkuliert werden, darüber bekomme ich die Fehlermeldung not enough memory.
Was macht mein VBA Code? Zum einem werden Daten aus einem Pivot extrahiert und dann in ein aufgesetztes Spreadsheet kopiert, worin auch sehr viele Formeln enthalten sind. Als zweiter Schritt, werden dann solange in Spalte A datenvorhanden sind, diese Formeln runterkopiert und danach ein Pivot mit dem Endresultat aktualisiert.
Un hier glaube ich, daß das Problem daheim ist. Ich vermute, daß der Speicher nie gelöscht wird und daher die Fehlermeldung auftaucht.
Kann mal wer den Code anschauen und mir sagen, was ich besser machen sollte?
Sub selections()
Dim pt As PivotTable
Dim pt1 As PivotTable
Dim rf As PivotItem
Dim ActSheet As Worksheet
Sheets("Pivot_Existing").Select
Range("B6").Select
Set ActSheet = ActiveSheet
Set pt = ActiveSheet.PivotTables(1)
For Each rf In pt.RowFields("Parent").PivotItems
Selection.ShowDetail = True
ActiveSheet.Name = "Sheet1"
Sheets(ActSheet.Name).Select
Next
Sheets("Sheet1").Select
Range("a2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Calculation_Sheet").Select
Range("A4").Select
ActiveSheet.Paste
Range("AO1:BL1").Copy Destination:=Range("AO4:BL" & Range("A65535").End(xlUp).Row)
Sheets("Pivot_Impact").Select
Range("B11").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
End Sub
Bin für jeden Tipp dankbar!!!
Lg, Heinz