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

Ansicht des Beitrags:
Von:
Kai		 Datum:
28.03.2017 20:07:32		 Views:
584		 Rating:
     
Antwort:
  Ja
Thema:
Excel öffnen:autmatisches Rechnen/Aktualisieren, Speichern und Schließen

Hallo Dennis,

ich habe den Code noch einmal angepasst. Das neue Sheet habe ich "mappe2.xlsx" genannt. Das Sheets "Tabelle2" wird nun in die mappe2.xlsx kopiert und diese Datei unter dem Pfad "c:\test ordner\" gespeichert.

 

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


'Speicherpfad festlegen
strPath = "c:\test ordner\"
'Neuen Dateinamen festlegen
strFileName = "mappe2.xlsx"

'Sheets kopieren
Sheets("Tabelle2").Copy before:=wbNew.Sheets(1)
'Neues wb abspeichern
wbNew.SaveAs strPath & strFileName
'Workbook schließen
wb.Close

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