Hallo Lars,

hast Du denn bei Deinem Code die Events und Berechnungen abgeschaltet?

Gerne kannst Du mit Arrays arbeiten, aber falls Du das nicht gemacht haben solltest, probiere erst mal das aus, denn das beschleunigt Deinen Code ungemein.

Beispiel:

Sub Test()
 With Application
  .ScreenUpdating = False
  .EnableEvents = False
  .Calculation = xlCalculationManual
 End With
 
 'Dein Code
 
 With Application
  .ScreenUpdating = True
  .EnableEvents = True
  .Calculation = xlCalculationAutomatic
 End With
End Sub

viele Grüße

Karl-Heinz