"Echo off" unter VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: "Echo off" unter VBA
von: Matthias
Geschrieben am: 04.06.2002 - 14:43:52

Mit den Excel-4.0-Makros konnte man während der Makroausführung die Aktualisierung der Bildschirmausgabe mit dem Kommando "Echo Off" und "Echo On" aus- und einschalten.

Wer kann mir sagen, wie das mit VBA geht?

Vielen Dank im voraus.


nach oben   nach unten

Re: "Echo off" unter VBA
von: Dieter
Geschrieben am: 04.06.2002 - 14:51:57

Aus der Hilfe

In diesem Beispiel wird gezeigt, wie das Deaktivieren der Bildschirmaktualisierung die Ausführung des Makros beschleunigt. Jede zweite Spalte in Tabelle1 wird ausgeblendet, während die für diese Operation benötigte Zeit gespeichert wird. Beim ersten Schleifendurchlauf werden die Spalten ausgeblendet, die Bildschirmaktualisierung ist aktiviert. Beim zweiten Durchlauf ist die Bildschirmaktualisierung deaktiviert. Wenn Sie das Makro ausführen, haben Sie die Möglichkeit, die beiden in einem Meldungsfeld angezeigten Zeiten zu vergleichen.

Dim AbgelaufeneZeit(2)
Application.ScreenUpdating = True
For i = 1 To 2
If i = 2 Then Application.ScreenUpdating = False
ZeitStart = Time
Worksheets("Tabelle1").Activate
For Each c In ActiveSheet.Columns
If c.Column Mod 2 = 0 Then
c.Hidden = True
End If
Next c
ZeitEnde = Time
AbgelaufeneZeit(i) = (ZeitEnde - ZeitStart) * 24 * 60 * 60
Next i
Application.ScreenUpdating = True
MsgBox "Bei aktivierter Bildschirmaktualisierung benötigte Zeit: " & AbgelaufeneZeit(1) & _

" Sek." & Chr(13) & _
"Bei deaktivierter Bildschirmaktualisierung benötigte Zeit: " & AbgelaufeneZeit(2) & _
" Sek."

nach oben   nach unten

Re: "Echo off" unter VBA
von: Matthias
Geschrieben am: 04.06.2002 - 15:14:38

Danke für die prompte Hilfe. Funktioniert bestens. Es flimmert zwar noch der Mauszeiger, aber damit kann ich leben.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "eig. Funktion zu SVERWEIS"