PDA

Vollständige Version anzeigen : Sheets ausblenden


Fönwellensurfer
06.07.2006, 16:59
Hi,
ich schreib grade an einem Makro, in dem viel von Sheet zu Sheet kopiert
wird und entsprechend flackert das Bild sehr heftig. :entsetzt:
Da ich nicht für den Augenkrebs meines Auftraggebers verantwortlich
sein will, hab ich eine Frage:

Ich weiss, es gibt einen Befehl, mit dem kann man alle ´Sheets auf einmal
Ausblenden, und nachdem man seine Aktion ausgeführt hat kann man sie wieder einblenden.

Wie heisst nochmal dieser Befehl??? (im Bsp. application.sheetsanzeigen=false)

Beispiel:


If c.Value Like Wert Then
application.sheetsanzeigen=false
c.Activate
Zeile = ActiveCell.Row
ZeileStr = i & ":" & i
Cells(Zeile, 1).EntireRow.Select
Application.CutCopyMode = xlCopy
Selection.Copy
Sheets(ZielTab).Activate
Rows(ZeileStr).Activate
ActiveSheet.Paste
Sheets(StartTab).Select
i = i + 1
application.sheetsanzeigen=true
End If

Ich weiss, das ist alles in allem nicht die sauberste Lösung, aber... ;)

Da ich weiss, dass ihr die Lösung aus dem Ärmel schütteln werdet,
sag ich jetzt schon mal Danke im Voraus!!

Euer Fönwellensurfer!

Lukas Mosimann
06.07.2006, 17:12
Hallo
Es ist zwar nicht sheets ausblenden, aber das ist der Befehl, den du vermutlich meinst: Application.screenupdatin=false
Am Schluss wieder auf true setzen!!

Gruss
Lukas

Bitte um Rückmeldung

jinx
06.07.2006, 17:41
<font size="2" face="Century Gothic">Moin, Fönwellensurfer!,

Du solltest lieber das Makro entsprechend nachbearbeiten, dann brauchst Du den Makro-Code nicht abzulaufen und die Tabellen zuwechseln. Das Ausschalten der Bildschirmaktualiserung ist dann ein zusätzliches Beschleunigen im Makro (genau wie mölgliocherweise das Umschalten auf manuelle Berechnung).

Application.ScreenUpdating = False
If c.Value Like Wert Then
Sheets(ZielTab).Range(Cells(i, 1).Address, Cells(i, Columns.Count).Address).Value = _
Range(Cells(c.Row, 1).Address, Cells(c.Row, Columns.Count).Address).Value
i = i + 1
End If
Application.ScreenUpdating = True</font>

Fönwellensurfer
07.07.2006, 10:53
Hallo,
vielen Dank ihr beiden.
Das war genau der Befehl den ich gesucht hatte...

@Jinx: Ich werd deinen Vorschlag gleich mal ausprobieren,
ich sagte ja das ganze ist nicht wirklich ausgereift.

Ich bin da schon seit September letzten Jahres immer mal wieder dran
und mein Wissensstand hat sich seitdem vergrößert, hab aber noch nicht geschafft alle Fossilien aus dem Code zu bergen ;)
-----------------------------------------------------
Frau Edit möchte noch folgendes sagen:
Zeiten:
mein Code ohne screenupdating=false:26 s
Jinx' Code ohne screenupdating=false:17 s
mein Code mit screenupdating=false: 7s
Jinx' Code mit screenupdating=false: 6s

macht also ca 1/5 !!

Also ich möchte mich bei euch beiden nochmal sehr Bedanken!
@Jinx: Ich werd mir deinen Code mal genauer zu Gemüte führen
und versuchen was daraus zu lernen!