Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Stop Blink

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Stop Blink
18.08.2003 08:55:14
geri
Hallo Christian

ergänze Code

mit
am Anfang
Application.ScreenUpdating = False

Application.ScreenUpdating = True

gruss geri


AW: Stop Blink
18.08.2003 10:01:25
christian
super

es funktioniert und sieht sehr sexy aus :-)

merci


AW: Stop Blink
18.08.2003 08:56:31
PeterW
Hallo Christian,

auf Select kann in der Regel in VBA verzichtet werden. Statt

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

lässt sich schreiben:
Sheets("Rohdaten").Range("C4:C2983").Copy
Sheets("Auswertung").Range("N8").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

Zusätzlich kannst du die Bildschirmaktualisierung am Beginn des Codes mit Application.Screenupdating = False aus- und am Ende mit Application.Screenupadating = True wieder einschalten.

Gruß
Peter


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige