"Bitte warten..." als Hinweis oder so
05.10.2004 10:15:02
norbert
folgenden Code zum Öffnen einer Arbeitsmappe:
Dim Filename1, Filename2 As String
Filename1 = "\\duisr20019\gruppen\Diensteinteilung.xls"
Filename2 = "\\duisr20020\gruppen\Diensteinteilung.xls"
If Dir(Filename1) = "" And Dir(Filename2) = "" Then
MsgBox "Die Datei wurde nicht gefunden!"
Exit Sub
End If
If Dir(Filename1) = "" Then
Workbooks.Open Filename2, ReadOnly:=True
Else
Workbooks.Open Filename1, ReadOnly:=True
End If
möchte ich nun erweitern, da das Öffnen der Datei so lange dauert, dass der Anwender meinen könnte, es passiert ja nichts...
Gibt es eine Möglichkeit, während des Öffnens der Datei eine Sanduhr oder einen Hinweis "Bitte warten..." anzeigen zu lassen?
Bitte für Ungeübte antworten ;o)
Vielen Dank,
Gruss