Office: Screen update

Hallo,

ich habe ein VBA Code der die Werte aus Tabellenblatt 2 nimmt und mit denen in Tabellenblatt 3 etwas simuliert. Gelöst wurde dies so:
Worksheets("Blatt3").Range("E33").Copy
Worksheets("Blatt2").Range("B95").PasteSpecial xlPasteValues

Da bei der Ausführung immer zwischen zwei Blättern gesprungen wird habe ich zudem das Screenupdating ausgestellt. Nun möchte ich aber eine Statusanzeige über den Fortschritt der Simulation haben.
Funktioniert es dass ich z.B. Blatt 1 nicht einfriere und dort dann die Statusbar läuft?

Beste Grüße

 

Hallo Unteg,

du könntest auch die Werte aus Blatt3 in ein Array einlesen, dann zu Blatt2 wechseln und dort die Werte aus dem Array eintragen und dann damit machen was immer du willst. Auf jeden Fall kein Bildschirmgezappel mehr.

Gruß,
Lutz

 

Ich galube das ist nicht das richitge, da die Werte immer variieren.

Also er nimmt aus Blatt 3 einen Simulierten Wert und gibt den in Blatt 2. Rechnet dann damit etwas durch unter verwendung von anderen Variablen Werten und nimmt die Lösung und gibt diese wieder in Blatt 3 aus.
Das ganze dann für x mal in der Regel zw. 2000 und 10000 mal.


Gibt es keine Möglichkeit das Screenupdate nur für bestimmte Blätter zu machen. Bzw. eine Alternative zum Screenupdate?

 

Hallo Unteg,

soweit ich weiß nicht...
Aber du kannst die Werte aus dem Array eintragen, durchrechnen lassen, das Ergebnis in ein weiteres Array oder eine weitere Spalte des ersten Array zurückschreiben und am Ende alle Ergebnisse in Blatt 3 schreiben.

Aber poste doch einfach mal eine Beispieldatei mit anonymen Daten und deinem Code.

Gruß,
Lutz

 

Hallo,

Stelle Application.screenupdating = false am Anfang und = true am Ende.
Dann arbeitet das Makro im Hintergrund