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:
704		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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