Makro sprengt Speicher - Wie umschreiben?
17.02.2016 10:46:53
Matthias
ich möchte unter Excel 2010 Daten sortieren, wobei die Datei im Ausgangszustand 9 Spalten und 64064 Zeilen besitzt. Im Endzustand müßten sich 513 Spalten und 1000 Zeilen ergeben. Bei meinem hierfür geschriebenen Makro erhalte ich die Fehlermeldung "Microsoft Excel kann diesen Vorgang mit den verfügbaren Ressourcen nicht ausführen. Bitte wählen Sie weniger Daten aus oder schliessen Sie andere Programme."
Im alten Office-Forum http://www.office-loesung.de/ftopic515244_15_0_asc.php
gab es zwei Lösungen, daß Makro anders, nämlich ohne for-Schleife aufzubauen.
Leider reichen meine VBA-Kenntnisse bei weitem nicht aus, diese Lösungen zu verstehen....
Wie muß ich mein Makro abändern, damit es funktioniert ?
Application.ScreenUpdating = False
Dim letzte_Spalte As Variant
Dim i As Integer
Dim zeile As Integer
For zeile = 1 To 1000
For i = 1 To 63
Range(Cells(zeile + 1, 2), Cells(zeile + 1, 9)).Select
Selection.Cut
letzte_Spalte = Cells(zeile, Columns.Count).End(xlToLeft).Column
Range(Cells(zeile, letzte_Spalte + 1), Cells(zeile, letzte_Spalte + 1)).Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(zeile + 1 & ":" & zeile + 1).Select
Selection.Delete Shift:=xlUp
Next i
Next zeile
Application.ScreenUpdating = True