PDA

Vollständige Version anzeigen : automatisch Speichern


Rudi Steil
27.07.2001, 10:35
Moin moin,

in Excel 2000 kann man im Menü unter Extras automatisch speichern auswählen. Die Speicherbestätigung kann man ein- und ausschalten. Bei mir wird das Häkchen immer wieder gesetzt. Warum?

mfg Rudi

jinx
27.07.2001, 15:26
<font size="2" face="Century Gothic">Moin, Rudi,

wenn Du die Option nicht willst, entferne das AddIn Automatisch Speichern - und nie wieder wird ein Haken in einer nicht mehr vorhandenen Option gesetzt....

<font color="#808080" size="3" face="Arial Black">cu
jinx</font>

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag die Signatur angepasst...</font>

Rudi Steil
30.07.2001, 06:07
Hallo jinx,
ich möchte automatisch Speichern. Aber ich möchte dies nicht jedesmal bestätigen.
cu
Rudi

jinx
30.07.2001, 06:37
<font size="2" face="Century Gothic">Moin, Rudi,

Hilfevorrat fast aufgebraucht...

Probier mal folgendes:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Sub</span> MaiksAutomatischerDruck()
<span class="TOKEN">On</span> <span class="TOKEN">Error</span> <span class="TOKEN">Resume</span> <span class="TOKEN">Next</span>
Worksheets(&quot;Tabelle1&quot;).Activate
Range(&quot;A1&quot;).Select
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Select
Selection.PrintOut Copies:=1, Collate:=True
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>

Als Alternative vielleicht so?

Quelle (http://www.herber.de/mailing/094800h.htm):

Text-Index: 094800
Thema: Datei
Betrifft: Arbeitsmappe 10-minütlich als *.xls und *.bak-Datei speichern Anmerkung: Speicherung erfolgt jede Minute!
Frage: Wie kann ich eine Arbeitsmappe im Minutenrythmus als ExcelArbeitsmappe und als *.bak-Datei speichern?
Antwort: Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Option</span> <span class="TOKEN">Explicit</span>
&nbsp;
<span class="TOKEN">Sub</span> SpeichernMinuetlich()
<span class="TOKEN">Dim</span> NextTime <span class="TOKEN">As</span> Date
<span class="TOKEN">Dim</span> sPathB <span class="TOKEN">As</span> String, sPathW <span class="TOKEN">As</span> String, sPath <span class="TOKEN">As</span> <span class="TOKEN">String</span>
Application.DisplayAlerts = <span class="TOKEN">False</span>
sPath = Range(&quot;B1&quot;).Value
<span class="TOKEN">If</span> Right(sPath, 1) &lt;&gt; &quot;\&quot; <span class="TOKEN">Then</span>
sPath = sPath &amp; &quot;\&quot;
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
sPathW = sPath &amp; Format(Date, &quot;yymmdd&quot;) &amp; &quot;.xls&quot;
sPathB = sPath &amp; Format(Now, &quot;yymmddhhmm&quot;) &amp; &quot;.bak&quot;
ActiveWorkbook.SaveAs sPathB
ActiveWorkbook.SaveAs sPathW
Range(&quot;B2&quot;).Value = Now + TimeValue(&quot;00:01:00&quot;)
Application.OnTime <span class="TOKEN">CDate</span>(Range(&quot;B2&quot;).Value), &quot;SpeichernMinuetlich&quot;
Application.DisplayAlerts = <span class="TOKEN">True</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span><hr>&nbsp;
<span class="TOKEN">Sub</span> StopSpeichern()
<span class="TOKEN">If</span> IsEmpty(Range(&quot;B2&quot;)) <span class="TOKEN">Then</span> <span class="TOKEN">Exit Sub</span>
Application.OnTime _
earliesttime:=CDate(Range(&quot;B2&quot;).Value), _
procedure:=&quot;SpeichernMinuetlich&quot;, _
schedule:=False
Range(&quot;B2&quot;).ClearContents
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>&nbsp;</pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

<font color="#808080" size="3" face="Arial Black">HTH
jinx</font>

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag der Code für dieses Forum und die Signatur angepasst.<font>

Alfons Seeberger
01.08.2001, 20:22
Hallo Rudi,
oder du lädst dir von <a href="http://www.excel-xls.de/">Jörg Lorenz</a> das AddIn automatisches Speichern
Dateien / Add-Ins
schönen Gruß
Alfons
<a href="http://people.freenet.de/a.seeberger/"><br><img src="http://people.freenet.de/a.seeberger/grafi/allesExcel.gif" alt="" border="0"></a>

<p align="left"><font size="1" face="Century Gothic"><font color="#000000">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag der Link korrigiert.</font>