Stop Blink
18.08.2003 08:42:51
Christian
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