Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.03.2017 18:12:13 |
Dennis |
|
|
Excel öffnen:autmatisches Rechnen/Aktualisieren, Speichern und Schließen |
28.03.2017 05:39:42 |
Kai |
|
|
|
28.03.2017 10:04:14 |
Gast28010 |
|
|
|
28.03.2017 20:07:32 |
Kai |
|
|
Von:
Kai |
Datum:
28.03.2017 05:39:42 |
Views:
598 |
Rating:
|
Antwort:
|
Thema:
Excel öffnen:autmatisches Rechnen/Aktualisieren, Speichern und Schließen |
Hallo Dennis,
die Folgende Sub erstellt vor dem Schließen der Datei ein neues Workbook und kopiert ein Sheets (ich habe es im Beispiel wsPivot genannt) in diese Datei und speichert diese unter einem neuen Namen im gleichen Ordner ab.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wsPivot As Worksheet
Dim wb As Workbook, wbNew As Workbook
Dim strPath As String, strFileName
Set wb = ThisWorkbook
Set wbNew = Workbooks.Add
'Sheet festlegen, welches in einer neuen Datei gespeichert werden soll
Set wsPivot = wb.Sheets("Pivot")
'Speicherpfad festlegen
strPath = wb.Path
'Neuen Dateinamen festlegen
strFileName = "Pivot - " & Date & ".xlsx"
'Sheets kopieren
wsPivot.Copy before:=wbNew.Sheets(1)
'Neues wb abspeichern
wbNew.SaveAs strPath & "\" & strFileName
'Workbook schließen
wb.Close
End Sub
Der zweite Teil ist sehr einfach:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.RefreshAll
End Sub
Ich hoffe das hilft.
Viele Grüße
Kai
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.03.2017 18:12:13 |
Dennis |
|
|
Excel öffnen:autmatisches Rechnen/Aktualisieren, Speichern und Schließen |
28.03.2017 05:39:42 |
Kai |
|
|
|
28.03.2017 10:04:14 |
Gast28010 |
|
|
|
28.03.2017 20:07:32 |
Kai |
|
|