Hallo,

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