Berechnung verlangsamen ... wg. MIS Alea
10.07.2006 10:34:47
Falk
die unten aufgeführten Makros arbeiten ohne Fehler, daß Problem stellt sich bei der Berechnung von DBGET-Formeln, die ich benutze um Werte aus einer ALEA Datenbank zu erhalten. Ohne Makro funktioniert dies auch fehlerfrei.
Jetzt zum Problem, wenn ich das Makro ausführe, fängt die Datei an zu rechnen, kopiert das berechnete Blatt in eine neue Datei, ändert alle Formeln in Werte und wechselt wieder in die Ursprungsdatei, ändert den Verkäufernamen und fängt wieder von vorne an.
Dies funktioniert auch, mal fünfmal, mal zehnmal etc. hintereinander, bis die Berechnung nicht mehr funktioniert, die Aleaformln nur noch "WERT" übergeben.
Wenn ich dann das Makro abbreche, berechnen sich die Formeln wieder ganz normal und von ganz alleine.
Wie kann ich die Berechnung noch mehr verlangsamen (außer so wie ich es gemacht habe!) und wie kann ich evtl. den Zwischenpeicher zwischendurch von löschen?
Danke für Eure Hilfe im voraus.
Grüße
Falk
Sub Bericht_drucken()
Dim i As Integer
Dim m As Integer
Dim k As Integer
For k = 1 To 15
Sheets("Parameter").Range("C18").Value = k
Berechnen
m = Sheets("Parameter").Cells(19, 2).Value
For i = m To 1 Step -1 'Schleife für die APC_VERK Steuerung
Sheets("Parameter").Cells(17, 2).Value = i
Berechnen
In_Datei_Speichern
Next
Datei_Speichern 'Funktion: Speichert und schließt die Auswertungsdateien für die APCs
Next
Sheets("Parameter").Range("C18").Value = "Makro Stop"
End Sub
Function In_Datei_Speichern()
Dim j As String
j = Sheets("WSR").Range("V7").Value
Sheets("WSR").Select
Sheets("WSR").Copy Before:=Workbooks(j).Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Name = Range("C2").Value
Application.CutCopyMode = False
Windows("Alea WSR Auswertung 2007 V2.xls").Activate
End Function
Function Berechnen()
Calculate
For e = 0 To 100000000
Next e
End Function