Code beschleunigen
25.02.2007 12:15:43
Thorsten_Z
ist es möglich, folgenden Code zu "beschleunigen"? Es laufen ca. 12 codes hintereinander ab und das dauert geschätzte eineinhalb Minuten... ist zwar kein Drama, aber wenn es schneller gehen könnte wär das toll.
<pre>Sub Mrz()
Dim a As Integer
Dim i As Integer
a = 11
For i = 6 To 12
Workbooks("Dienstplan.xls").Sheets("Dienstplan").Cells(a, 17).Value = Workbooks("Zeitzuschläge.xls").Sheets("Mrz").Cells(i, 15).Value
Workbooks("Dienstplan.xls").Sheets("Dienstplan").Cells(a, 18).Value = Workbooks("Zeitzuschläge.xls").Sheets("Mrz").Cells(i, 16).Value
a = a + 2
Next i
daten_kopieren2 'hier wird das nächste makro gestartet
End Sub
</pre>
Hat jemand einen Tip für mich?
Gruß
Thorsten