Thema Datum  Von Nutzer Rating
Antwort
27.03.2017 18:12:13 Dennis
NotSolved
Blau Excel öffnen:autmatisches Rechnen/Aktualisieren, Speichern und Schließen
 28.03.2017 05:39:42 Kai
NotSolved
28.03.2017 10:04:14 Gast28010
NotSolved
28.03.2017 20:07:32 Kai
NotSolved

Ansicht des Beitrags:
Von:
Kai		 Datum:
28.03.2017 05:39:42		 Views:
923		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
Blau Excel öffnen:autmatisches Rechnen/Aktualisieren, Speichern und Schließen
 28.03.2017 05:39:42 Kai
NotSolved
28.03.2017 10:04:14 Gast28010
NotSolved
28.03.2017 20:07:32 Kai
NotSolved