Makro dauert lange...
13.04.2006 13:09:33
walter
ich habe folgendes Makro:
<pre>
Private Sub CommandButton25_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'-------------------------------------------------------------------------
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 10 Sekunden geschlossen." _
& Chr(13) & Chr(13) & "Bitte warten Sie ..." & Chr(13) & Chr(13) & _
" NICHT OK drücken !!! " & _
Chr(13) & Chr(13) & Chr(13), 3 _
, "Es wird gespeichert... Automatisch...", vbInformation)
' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
'-------------------------------------------------------------------------
Sheets("Test").Select
Call Daten_Suchen
Sheets("Test-Druck").Select
Call Test_Drucken
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Habe schon die MSGBOX für das "Warten" gefunden, da das selektieren sehr lange dauert, gibt eine Möglichkeit die "Eier-Uhr" oder etwas anderes weiter anzuzeigen etc.
gruß Walter