Thema Datum  Von Nutzer Rating
Antwort
06.10.2016 15:27:01 theo
NotSolved
06.10.2016 15:27:39 Code
NotSolved
Rot Generierte Excel-Datei aktivieren
 09.03.2017 20:18:14 Kai
NotSolved

Ansicht des Beitrags:
Von:
Kai		 Datum:
09.03.2017 20:18:14		 Views:
545		 Rating:
     
Antwort:
  Ja
Thema:
Generierte Excel-Datei aktivieren

Hallo Theo,

das folgende Sub legt ein neues Workbook an, speichert dies und aktiviert dann das alte und anschließend das neu angelegte Workbook.

Sub newWorkbook()

Dim strNameAlt As String
Dim strNameNeu As String

'Neue Datei anlegen und abspeichern

strNameAlt = ThisWorkbook.Name
strNameNeu = "Neu"
    
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:= _
        "c:" & strNameNeu & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
'Ursprungsdatei aktivieren
    
    Windows(strNameAlt).Activate

'Neue Datei aktivieren
    Windows(strNameNeu & ".xlsx").Activate

 
'Datei speichern und schließen

    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows(strNameAlt).Activate

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
06.10.2016 15:27:01 theo
NotSolved
06.10.2016 15:27:39 Code
NotSolved
Rot Generierte Excel-Datei aktivieren
 09.03.2017 20:18:14 Kai
NotSolved