funktioniert, aber dauert ewig
14.08.2003 09:49:57
meike
ich hab da ein probelm. ich habe ein makro geschrieben, das 31 tabellen in einer zusammenfassen soll. dabei werden die jeweiligen zellen addiert. das programm funktioniert, dauert aber bei der ausführung 5 minuten (ab und zu stürzt der pc auch dabei ab). kann man das vielleicht schneller machen?
wäre cool, wenn mir jemand helfen könnte. hier das programm. grüße, meike
Sub monat()
Dim a, i, t As Integer
For a = 2 To 32
For i = 5 To 21
t = i + 41
Worksheets("Werkzeuge").Cells(i, 2).Value = Worksheets("Werkzeuge").Cells(i, 2).Value + Worksheets(a).Cells(t, 7).Value * 2
Worksheets("Werkzeuge").Cells(i, 3).Value = Worksheets("Werkzeuge").Cells(i, 3).Value + Worksheets(a).Cells(t, 6).Value
Worksheets("Werkzeuge").Cells(i, 4).Value = Worksheets("Werkzeuge").Cells(i, 4).Value + Worksheets(a).Cells(t, 8).Value / 31
For a = 2 To 32
For i = 5 To 21
For x = 5 To 14
t = i + 41
y = x + 6
Worksheets("Werkzeuge").Cells(i, x).Value = Worksheets("Werkzeuge").Cells(i, x).Value + Worksheets(a).Cells(t, y).Value
Next x
For x = 16 To 25
y = x + 6
Worksheets("Werkzeuge").Cells(i, x).Value = Worksheets("Werkzeuge").Cells(i, x).Value + Worksheets(a).Cells(t, y).Value
Next x
For x = 27 To 40
y = x + 6
Worksheets("Werkzeuge").Cells(i, x).Value = Worksheets("Werkzeuge").Cells(i, x).Value + Worksheets(a).Cells(t, y).Value
Next x
Next i
Next a
End Sub