Zuerst würde ich mal alle Sachen mit Select und Selection eliminieren - was nicht selektiert wird, kann nicht zum Flackern führen.
Sheets("Auswertung").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
wird also zu:
Worksheets("Auswertung").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Anmerkung: Wenn man ein Tabellenblatt meint, sollte man Worksheets benutzen.
Wenn man Diagrammblätter meint, nutzt man Charts
und nur wenn man mehrere Blätter meint und die womöglich auch noch Tabellenblatt und Chart gemischt sind, nur dann nimmt man Sheets.
Grüße
|