Makro blockiert irgendwann alle office Anwendungen
22.06.2016 16:56:55
giovanni
hab mittlerweile ein großes Problem und brauche Eure Hilfe.
Unterer Code führt Matrizen-Berechnungen durch.
Immer diesselbe Berechnung in Abhängigkeit von zwei Variablen.
Probleme dabei:
1.) Makro geht langsamer nach Umstellung auf höherer Excel Version Office Professional Plus 2013
2.) hinzu kommt wenn ich die Schleife mehrmals durchlaufe sich irgendwann Outlook aufhängt, wenn ich dann noch weitermache hängt sich dann Excel auch irgendwann auf ohne irgendeiner Fehlermeldung. Bildschirm reagiert nicht mehr. Totale Verlangsamung oder Programm reagiert nicht mehr.
Sonstige Info: CPU Auslastung bei max. 20%, Dateigröße ca. 10MB, Dauer einer Berechnung 2min
Jemand einen Plan was die Ursache sein kann?
Danke gio
Sub Berechnung()
Dim i, x, lz, sp
sp = 35 ' bis Spalte AI
Range("B15:AI34").ClearContents
For i = 2 To sp Step 1
x = 14 'To lz
Do While Cells(x + 1, 1) ""
Application.ScreenUpdating = False
If Cells(14, i) = "" Then Exit Sub
Range("A10:B10") = ""
Range("A10") = Cells(14, i)
Range("B10") = Cells(x + 1, 1)
Range("A11").Copy
Cells(x + 1, i).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("B11").Copy
Cells(x + 1, i + 35).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
x = x + 1
Loop
Next i
Application.ScreenUpdating = True
End Sub