Beschleunigung VBA Code für Copy Paste
17.02.2022 12:39:07
Ingo
Ich habe mir zwecks Kopieren von per Autofilter selektierten Werten aus 3 nicht zusammenhängenden Spalten eines Quellen-Tabellenblattes in eine bestimmte Zelle eines Ziel-Tabellenblattes innerhalb der selben Datei und zurücksetzen des vorgenannten Autofilters im Quellen-Tabellenblatt den folgenden VBA Code erstellt.
Ausgeführt wird der Code durch individuellen Klick auf einen entsprechend im Ziel-Tabellenblatt befindlichen Button.
Das funktioniert alles soweit einwandfrei.
Nun wäre ich, sofern dies noch möglich ist, daran interessiert, den Code in seiner Laufzeit noch zu beschleunigen.
Kann mir da jemand von euch weiterhelfen?
Hier mein Code:
Sub fehlende_Lieferanten()
Application.ScreenUpdating = False
Range("AA21:AC120").Select
Selection.ClearContents
Sheets("IST_Daten_Summen").Select
ActiveSheet.Range("$I2:$O3000").AutoFilter Field:=6, Criteria1:=""
Range("$I$3:$I$3001,$N$3:$N$3001,$O$3:$O$3001").Select
Selection.Copy
Sheets("PlanungDritte").Select
Range("$AA$21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("IST_Daten_Summen").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Sheets("PlanungDritte").Select
Application.ScreenUpdating = True
End Sub
Gruss Ingo