Optimierung durch sammeln?!
31.05.2018 09:45:14
christoph
habe mir ein Arbeitsblatt eingerichtet mit diversen Funktionen.
Bei einer dieser Funktionen muss er aus neuerstellten Spalten aus allen Spalten die nicht gemerged sind die Inhalte und die Füllfarbe entfernen.
Da diese Funktion die umfangsreichste ist und meine Programmierung nicht die Beste, rödelt er gute 5 Sekunden herum.
Dabei gehen 2-3 Sekunden für den unten aufgeführten Teil drauf:
Debug.Print Time (09:38:14)
For Each c In Range(Cells(28, ende + 1), Cells(600, ende + 1)) ' bearbeiten
If c.MergeArea.Address = c.Address Then
c.ClearContents
c.Interior.ColorIndex = none
End If
Next c
Debug.Print Time (09:38:16)
Ist es möglich die im if bereich angesprochenen Range per Select oder union zu sammeln und dann für den gesamten Bereich clearcontents/interior.colorindex auszuführen um dadurch vllt 1 Sekunde oder so zu sparen?
Danke für ideen und Anmerkungen