Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

"Echo off" unter VBA



Excel-Version: 9.0 (Office 2000)

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.


  

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."

  

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.