Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Beim Autospeichern durch VBA eine Meldung anzeigen

Beim Autospeichern durch VBA eine Meldung anzeigen
24.04.2006 13:15:48
Oliver
Hallo an alle,
ich möchte mit folgendem Code alle 30 Minuten (in dem hier geposteten Code sind 30 Sekunden eingestellt) meine Datei autospeichern. Das funktioniert soweit ganz gut. Nur wäre es mir lieb, wenn während des Speichervorganges ein Fenster z. B. in Form einer UserForm eingeblendet würde, die den User darauf hinweist, dass die Datei im Moment gespeichert wird, da ja während des Speichervorganges nicht weitergearbeitet werden kann (Speichervorgang dauert wegen der Menge an Daten etwas länger). Leider bekomme ich das nicht hin. Kann mir da jemand weiterhelfen? Hier erst mal der Code zum Speichern:


Sub AutoSpeichern()
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:00:30"), "AutoSpeichern"
End Sub


Danke für Euere Hilfe,
Oliver S.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Autospeichern durch VBA eine Meldung anze
24.04.2006 13:24:50
Solaiman
Hallo Oliver,
meinst du etwa so?
'================================================================

Sub AutoSpeichern()
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:00:30"), "AutoSpeichern"
MsgBox "Meldung!"
End Sub

'================================================================
Gruß
Solaiman
Nein, leider nicht!
24.04.2006 14:45:08
Oliver
Hi Solaiman,
danke Dir erst einmal für Deine Antwort. Leider meinte ich das so nicht. Ich würde gerne zum Anfang des Speicherns eine Meldung auf den Bildschirm erhalten, die aussagt, dass die Datei autogespeichert wird. Diese Meldung soll aber am Ende des Speichervorgangs oder nach sagen wir mal 30 Sekunden alleine wieder verschwinden. Bei einer MessageBox muss der User ja den OK-Button betätigen und dann ist aber unter Umständen das Speichern noch nicht beendet oder der User sitzt gerade beim Autospeichern nicht vorm PC. Bei Zurückkehren würde er die Meldung sehen, die aber eigentlich gar nicht mehr aktuell ist. Daher dachte ich an eine UserForm, die den besagten Text enthält, die aber von selbst wieder verschwindet ohen das der Benutzer eingreifen muss/soll.
Hast Du dafür noch eine Idee? Wäre super.
Gruß,
Oliver S.
Anzeige
AW: so gehts ...
24.04.2006 15:23:52
Solaiman
Hallo Oliver,
eine Lösung mit Formular automatisch ein- und ausblenden:
Formular erstellen und folgenden Code verwenden!
'================================================================

Sub AutoSpeichern()
UserForm1.Show 1
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:00:05"), "AutoSpeichern"
Application.OnTime Now + TimeValue("00:00:07"), "FormAusblenden"
End Sub


Sub FormAusblenden()
UserForm1.Hide
End Sub

'================================================================
Gruß
Solaiman
Anzeige
AW: so gehts ...
24.04.2006 15:43:26
Oliver
Hallo Solaiman,
danke Dir für Deine erneute Antwort. Ich werde Deinen Code mal probieren. Ich war aber auch nicht ganz untätig und habe das mal folgendermaßen gelöst.
Code in StandardModul

Sub AutoSpeichern()
UserForm1.Show
Application.OnTime Now + TimeValue("00:00:30"), "AutoSpeichern"
End Sub

Code in UserForm


Private Sub UserForm_Activate()
ActiveWorkbook.Save
DoEvents
Unload Me
End Sub


So funktionierts jedenfalls erst mal. Aber eventuell ist Deine Lösung ja die elegantere. Wie schon geschrieben, testen werde ich sie auf jeden Fall.
Nochmal besten Dank für Deine Hilfe,
Oliver S.
Anzeige

270 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige