Office-Fragen.de

Liebes Forum,
Mein Excel macht gerade für mich unverständliche Dinge.
Ich habe 2 Dateien die mit (fast) den gleichen Makros arbeiten.
Das Makro soll eine bestimmte Anzahl von Zellen in der Zeile mit „x“ füllen. Das funktioniert auch.
ABER
In der einen Datei werden die „x“ mit dem Starten des Makros gesetzt, das dauert keinen Augenblick, bei der anderen Datei wird alle 0,5sec ein x gesetzt und man kann in Ruhe „mitzählen“
Das ist das eine Komische, aber einen habe ich noch:
Wenn die langsame Datei geöffnet ist, dann wird auch die ehemals Schnelle ganz langsam solange die Langsame geöffnet ist.
Das verstehe ich nicht und frage mal höflich, ob das einen bekannten Grund hat.
Die beiden in Rede stehenden Dateien hänge ich mit an. Ich habe das auch auf einem anderen Rechner ausprobiert mit demselben Ergebnis.
Die Makros in den Dateien zählen nur Farben und setzen bzw. löschen „x“
Mein Excel ist übrigens Office 2013
Dank schon mal jetzt

Olaf Ulrich

Hallo,

langsames Schreiben kommt daher, dass Du die Zellen (generell) einzeln beschreibst. Du kannst das etwas optimieren,
indem Du ScreenUpdating und die Berechnung abschaltest und nach dem Schreiben wieder einschaltest. Eine Schleife
ist allerdings nicht notwendig. Das geht auch z.B. wie folgt mit dem 6x ...

Code:
Sub mach6x()

  Application.ScreenUpdating = False

  Application.EnableEvents = False

  Application.Calculation = xlCalculationManual

  ActiveCell.Cells(1, 1).Resize(1, 24).Value = "x"

  ActiveCell.Offset(rowOffset:=0, columnOffset:=24).Activate

  Application.Calculation = xlCalculationAutomatic

  Application.EnableEvents = True

  Application.ScreenUpdating = True

End Sub

Warum aber jetzt die eine Datei schneller ist, erscheint mir so auf die Schnelle nicht ersichtlich.

Gruß

Hammer...
woher kennst du nur all die tollen Funktionen (... rhetorische Frage)
Das funktioniert jetzt ja wie geschmiert! Danke.

Das andere Verhalten mit mal schnell, mal langsam, ist jetzt nebensächlich, bleibt aber (finde ich) "komisch".

Schönes Fest und NoCorona
Gruß
Kapt.Ulrich

Kapt.Ulrich

maninweb

Kapt.Ulrich