Bisher habe ich schon viel von euch gelernt (VBA). Dieses mal habe ich mir eine Routine geschrieben, die auch funktioniert, aber dazu muss ich meinen Computer über Nacht laufen lassen, bis der die 220 Datensätze berechnet hat :-(((
Folgendes:
Habe eine Matrix von 40 x 40 Zellen, in denen mein Programm Werte einträgt. Diese Matrix befindet sich CG9:DT48. Nachdem nun diese Werte eingetragen wurden, möchte ich sie in einer anderen Matrix aufaddieren. Diese Matrix ist in D11:AQ50.
Nun wird ein neuer Datensatz geholt:
For i = 1 To 221 Datensätze
Cells(2, 44).Value = Cells(2, 44).Value + 1
Und die ganze Procedure geht von vorne los. Habe alles auf einen Button gelegt, um die Berechnung zu starten.
Nur wie gesagt, es dauert alles viel zu lange. Ihr Profis habt sicherlich eine Idee, wie ich das ganze schneller bekomme.
Private Sub CommandButton1_Click()
For Z = 11 To 50
For S = 4 To 43
Cells(Z, S).Value = Cells(Z, S).Value + Cells((Z - 2), (S + 81)).Value
Next S
Next Z
Hier wurden die ersten Werte in die Matrix D11:AQ50 aufaddiert.
For i = 1 To 221 Datensätze
Cells(2, 44).Value = Cells(2, 44).Value + 1 hier werden neue Werte geholt
Application.Calculate
For Z = 11 To 50
For S = 4 To 43
Cells(Z, S).Value = Cells(Z, S).Value + Cells((Z - 2), (S + 81)).Value
Next S
Next Z
Next I
End Sub
Gruß
Helga