Zeilen löschen - nicht genügend Arbeitsspeicher
08.03.2018 08:35:00
Florian
habe folgendes Problem: Beim ausführen des unten stehenden Makros endet dieses in folgendem Fehler:
Nicht genügend Arbeitsspeicher für diese Aktion. Wählen Sie weniger Daten aus,
oder schließen Sie andere Anwendungen. Erwägen Sie zum Erhöhen des verfügbaren Arbeitsspeichers die Verwendung einer 64-Bit-Version von Microsoft Excel.
Es sind keine anderen Programme geöffnet. Die 64-bit Version führt bei Outlook immer wieder zu hässlichen Komplikationen.
Hier das auszuführende Makro:
Sub Zeilen_loeschen()
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten
Range("AA13:AA2012").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Range("AC11:AG2012").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Range("AC11:AG2012").Replace 0, "", xlWhole
Range("AJ11:QNZ11").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Range("AJ11:QNZ11").Replace 0, "", xlWhole
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
ActiveWorkbook.Save
Columns("A:A").Replace 0, "", xlWhole
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.Calculation = xlCalculationAutomatic 'automat.Berechnung einschalten
Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten
End Sub
Besten Dank für eure Hilfe.
Florian