Fortschrittsanzeige
16.12.2003 14:58:35
Winni
erstmal ein Dankeschön an alle die mir bei vergangenen Fragen schon weiterhelfen konnten.
Zum o.g. Thema habe ich schon viele Beiträge gelesen aber keinen so richtig verstanden.
Hier mein neues Problem : Ich habe eine Tabellen erstellt, die -sollten neuere Daten vorhanden sein- diese dann nach dem wegklicken einer MsgBox nacheinander holt. Nun kann das holen unter Umständen 2-3 Minuten dauern. Ich möchte hier dem Benutzer aber zeigen, welche Daten gerade geholte werden. Wie kann ich das relisieren ?
Hier mal das "Auto_open" damit Ihr seht um wievel Dateien es geht.
Sub Auto_open()
With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
Sheets("Navigation").Visible = True
Application.ScreenUpdating = False
Sheets("Detailübersicht").Activate
Run ("Details_Ausblenden")
Sheets("Navigation").Activate
Calculate
If Sheets("Navigation").Range("Z2") = "Falsch" Then
MsgBox ("Die vorhandenen Daten sind noch aktuell")
Else
MsgBox ("Die Daten werden aktualsiert, bitte einen Moment warten")
Run ("Forderungen_Löschen")
Run ("DatenAusAngebote_aktuell_importieren")
Run ("DatenAusAufträge_aktuell_importieren")
Run ("DatenAusKMliste_importieren")
Run ("DatenAusMahnliste_importieren")
Run ("DatenAusReklamationen_aktuell_importieren")
Run ("DatenAusVertriebsinitiative_importieren")
End If
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
alse, Transpose:=False
Range("Q2").Select
Application.CutCopyMode = False
End Sub
Gruß
Winni