Code beschleunigen
21.07.2020 15:09:07
Henry
ich habe ein Probelm mit den beiden Codes, welche ich benötige um in einem Messprotokoll bestimmte Felder kopieren und einfügen zu können und um gleichzeit das Protokoll entsprechend anpassen zu können
Der Code Toleranzfeld_einfügen funktioniert bisher einwandfrei, bis zu der markierten Stelle. Ab dieser wird er deutlich langsamer.
Code Toleranzfeld_entfernen ist vollständig langsam.
Habt ihr Vorschläge, um die Codes zu vereinfachen bzw. zu beschleunigen?
Danke für eure Hilfe
Sub Toleranzfeld_einfügen()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
v = Range("AE2") 'Werte aus Tabelle, damit sie bei erneuten Öffnen wieder verfügbar sind
c = Range("AD2")
v = v + 1
If v Sub Toleranzfeld_entfernen()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
v = Range("AE2") 'Werte aus Tabelle, damit sie bei erneuten Öffnen wieder verfügbar sind
c = Range("AD2")
If v Anzeige