Application.ScreenRefresh erzeugt Fehler 438 in Excel 2010

Mach es so:

'Box laden

Load InfoBox

'Warten bis auf dem Schirm

Do While Not InfoBox.Visible

DoEvents

Loop

'Bildschirm aus

Application.ScreenUpdating = False

Andreas.

Danke, jetzt weiss ich wie man DoEvents brauchen kann.

Aber was tut DoEvents überhaupt, wenn ein einmaliger Aufruf den Bildschirm nicht aktualisiert ?

RTFM. ;-)

DoEvents übergibt die Steuerung an das Betriebssystem, damit es andere Ereignisse verarbeiten kann.

Macht man das in z.B. einer rechenintensiven Schleife nicht, dann steigt die Prozessorlast auf 100% und der Task reagiert nicht mehr.

Eine Userform ist auch nur ein Fenster (Childwindow) und die erzeugt man nie selber, dafür ruft man einfach eine entsprechende Routine(n) des OS auf. Früher als man noch prozedural alles nacheinander ausgeführt hat (man hatte ja auch nur eine CPU) war das
alles wurscht., nach dem Aufruf war das Fenster da.

Da heute ja alles "nebeneinander" (Multitasking) läuft muss man schon mal kucken ob der andere Task (Fenster oder auch Application) schon fertig ist, wenn man bestimmte Zustände/Ergebnisse haben will.

Es ist durchaus möglich (und in Deinem Fall offensichtlich) das die "Nachricht 'Erzeuge Fenster'" von Windows noch nicht abgearbeitet wurde, daher musst Du in einer Schleife warten und die Kontrolle solange abgeben.

Für ein "Worst Case" Scenario kann man in Excel auch eine Fehlerbehandlung via

On Error Goto ErrorHandler

Application.EnableCancelKey = xlErrorHandler

einbauen, denn wenn Windows das Fenster nicht erzeugt hängst Du fest. So kann man dann per CTRL-BREAK wiederum von der Tastatur eine Nachricht an das Excel-Fenster schicken und die Schleife wird verlassen.

Andreas.

Danke, jetzt weiss ich wie man DoEvents brauchen kann.

Aber was tut DoEvents überhaupt, wenn ein einmaliger Aufruf den Bildschirm nicht aktualisiert ?

Ich hatte schon an eine Warteschlaufe gedacht - nur verlangsamen solche den Code.

Daher suchte ich nach einem Befehl, der die Bildschirm-Aktualisierung sofort erzwingt…

Application.ScreenUpdating = True
tut zwar den Job, aber ich möchte nicht unbedingt die offensichtlich asynchrone Bildschirmaktualisierung zuerst völlig unnötig deaktivieren und befürchte, dass sonst dieser Befehl irgendwann (nach MS-Updates) einfach übersprungen
 wird, wenn die Routine merkt, dass ScreenUpdating bereits Wahr ist.

Hallo Andreas,

vielen Dank, dass Du bereit bist, dich mit meinem Problem zu befassen!

Ich habe den Code entsprechend geändert, leider kommt bei der Zeile: "With C.SeriesCollection(1).Points(i-1).Format" der Laufzeitfehler 438; Object unterstützt diese Eigenschaft oder Methode nicht.

Hast Du eine Idee?

Ich kann die Excel Datei mit dem Diagramm anhängen, falls Du es wünscht?

Gruss

kn

PS: Den Code hat damals (Excel 2010) ein Excel Profi geschrieben. Ich kenne mich ein wenig mit Formeln aus, aber VBA ist leider nicht meine Welt, sorry!

Hallo

oder bisher beste und nachhaltigste Lösung : Office 2010 !

musste mittlerweile auch auf zwei neuen Rechnern das excel 2013 wieder runterschmeißen und 2010 drauf machen weil unsere Anwendung unter 2013 viele neue völlig unbekannte Fehler erzeugt hat und einfach nicht lief ! Mit 2010 ist alles wieder ok.

Ich hoffe mal auf 2016 vielleicht geht die ja, wenn nicht, weiß einer ob man auch zwei Versionen überspringen kann ?

undn Office 365 ist keine Lösung (unsere mess Koffer mit excel müssen ohne Netz laufen)

mfg

egbert

ps: Danke für die Meldungen, so sehe ich das ich nicht allein bin....