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
Im der fett gedruckten Zeile beliebt das Makro hängen. Es sind sehr viele Spalten (11890) und Zeilen (30012), welche ich mit diesem Makro löschen will.Besten Dank für eure Hilfe.
Florian