Hallo und guten Tag

ich möchte von mehreren Datenblättern Werte zusammenkopieren und auf einem Blatt einfügen. (Siehe unten Code dazu). Mich störrt aber das dauernde geblinke weil excel automatisch die blätter öffnet und wieder schliesst. gibt es eine einfache lösung für mein problem? es soll ein stehendes Bild entstehen :-)

gruss und merci für eure hilfe

christian



Code:


Sheets("Rohdaten").Select
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft

'------------------------ Prognose --------------------------------------
Sheets("Rohdaten").Select
Range("D4:D2983").Select
Selection.Copy
Sheets("Auswertung").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'------------------------ Lastprofil --------------------------------------
Sheets("Rohdaten").Select
Range("C4:C2983").Select
Selection.Copy
Sheets("Auswertung").Select
Range("N8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'------------------------ Blindenergie --------------------------------------
Sheets("Rohdaten").Select
Range("F4:F2983").Select
Selection.Copy
Sheets("Auswertung").Select
Range("O8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False