Supportnet / Forum / Tabellenkalkulation
Makro zum aktualisieren und speichern
Frage
ich habe im VBA ein Programm um eine Tabelle zu aktualisieren und dann zu speichern mit "Speichern unter". Allerdings arbeitet VBA so schnell, daß das aktualisieren nicht durchgeführt wird. Gibt es eine Möglichkeit dem VBA zu sagen: Warte bis aktualisieren durchgeführt, dann speichern??
Antwort 1 von fedjo
Hallo Xander,
benutze einfach einen Zeitfaktor.
z.B.
Application.Wait (Now + TimeValue("0:01:10"))
Gruß
fedjo
benutze einfach einen Zeitfaktor.
z.B.
Application.Wait (Now + TimeValue("0:01:10"))
Gruß
fedjo
Antwort 2 von Xander
Hi fedjo,
danke für den Tipp. Funktioniert aber leider nicht. Es scheint, als würde die aktualisierung während der Wartezeit unterbrochen.
Hier ist das Makro:
ActiveWorkbook.RefreshAll
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub
MfG
Xander
danke für den Tipp. Funktioniert aber leider nicht. Es scheint, als würde die aktualisierung während der Wartezeit unterbrochen.
Hier ist das Makro:
ActiveWorkbook.RefreshAll
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub
MfG
Xander
Antwort 3 von fedjo
Hallo Xander,
vielleicht hilft dir ja der Beitrag weiter.
www.officetipps.net/projekte/pivot/samm-dateien/p12.html
Gruß
fedjo
vielleicht hilft dir ja der Beitrag weiter.
www.officetipps.net/projekte/pivot/samm-dateien/p12.html
Gruß
fedjo