"Komisches" Verhalten von Excel

[maninweb]

Hallo,

langsames Schreiben kommt daher, dass Du die Zellen (generell) einzeln beschreibst. Du kannst das etwas optimieren,
indem Du ScreenUpdating und die Berechnung abschaltest und nach dem Schreiben wieder einschaltest. Eine Schleife
ist allerdings nicht notwendig. Das geht auch z.B. wie folgt mit dem 6x ...

Code:

Sub mach6x()
 
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
 
  ActiveCell.Cells(1, 1).Resize(1, 24).Value = "x"
  ActiveCell.Offset(rowOffset:=0, columnOffset:=24).Activate
 
  Application.Calculation = xlCalculationAutomatic
  Application.EnableEvents = True
  Application.ScreenUpdating = True
 
End Sub

Warum aber jetzt die eine Datei schneller ist, erscheint mir so auf die Schnelle nicht ersichtlich.

Gruß