VBA: Geschwindikeit Zellwert zuweisen
04.01.2004 22:10:38
Werner
vielleicht kann mir jemand auf die Sprünge helfen, folgende Zeilen sind extrem langsam:
---------------------------------------------------------------------
Ziel="Ziel"
Quelle="Quelle"
I = 15
Sheets(Ziel).Cells(i, 1).Value = Sheets(Quelle).Cells(2, 6).Value
Application.StatusBar = "Zeitstempel" & Time()
' Kostenstelle zum Subunternehmer übernehmen
Sheets(Ziel).Cells(i, 2).Value = Sheets(Quelle).Cells(2, 4).Value
Application.StatusBar = "Zeitstempel" & Time()
---------------------------------------------------------------------
Zwischen dem Übergeben der Werte vergehen etwa 5 Sekunden.
Da mit dem Makro 10 Werte übergeben werden, dauert es etwa 50 Sekunden.
Der Rechner sollte schnell genug sein, die Datei ist ca. 7 MB gross.
Gruss
Werner