Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zum doppelt speichern von 2 Dateien
 12.01.2017 09:50:34 M. Pauldrach
NotSolved
14.01.2017 16:19:48 Gast99036
NotSolved
16.01.2017 13:15:02 Gast9519
NotSolved
16.01.2017 13:29:12 Mackie
NotSolved
17.01.2017 15:40:48 M. Pauldrach
NotSolved
17.01.2017 17:53:42 Mackie
NotSolved

Ansicht des Beitrags:
Von:
M. Pauldrach		 Datum:
12.01.2017 09:50:34		 Views:
1430		 Rating:
     
Antwort:
  Ja
Thema:
Makro zum doppelt speichern von 2 Dateien

Guten Tag Zusammen,

ich habe letztens eine Anforderung bekommen, mittels einem Makro zwei unterschiedliche Excel Dateien an zwei Orten zu speichern.

Wenn ich ein Programmablaufplan formuliere würde der so aussehen:

1. Wenn Excel Datei 1 geöffnet ist, Excel Datei 1 in Speicherort A und Speicherort B speichern

2. Wenn Excel Datei 2 geöffnet ist, Excel Datei 2 in Speicherort A und Speicherort B speichern

 

Mein Gedanke war: Ok einfach, ich brauche eine Dateiprüfung am Anfang und anhand des Dateinamens sollte das Makro das entsprechend speichern.

Ich habe versucht das Umzusetzen bin aber ab meinen bescheidenen Programmierfähigkeiten gescheitert. Ich habe etwas hinbekommen das auch funktioniert, nur nicht ganz so wie ich das möchte.

Wenn ich das Makro in Excel Datei 1 ausführe, speichert sich das korrekt, alles ok!

Wenn ich das Makro in Excel Datei 2 ausführe,speichert sich das korrekt aber Excel Datei 1 wird noch zusätzlich geöffnet.

Wenn jemand sich mein Stückchen Code ankucken könnte wäre ich sehr dankbar :)

?
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
31
32
33
34
Sub Speichern()
 
Dim Dateiname As String
Dateiname = ActiveWorkbook.Name
 
Application.DisplayAlerts = False
 
If Dateiname = "Excel Datei 1" Then
    ActiveWorkbook.SaveAs Filename:="Speicherort 1" & Dateiname & " ", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.SaveAs Filename:="Speicherort 2" & Dateiname & " ", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
Workbooks("Excel Datei 1").Close SaveChanges:=False
 
End If
 
If Dateiname = "Excel Datei 2" Then
    ActiveWorkbook.SaveAs Filename:="Speicherort 1" & Dateiname & " ", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.SaveAs Filename:="Speicherort 2" & Dateiname & " ", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
Workbooks("Excel Datei 2").Close SaveChanges:=False
 
End If
 
Application.DisplayAlerts = True
 
End Sub

 

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
Rot Makro zum doppelt speichern von 2 Dateien
 12.01.2017 09:50:34 M. Pauldrach
NotSolved
14.01.2017 16:19:48 Gast99036
NotSolved
16.01.2017 13:15:02 Gast9519
NotSolved
16.01.2017 13:29:12 Mackie
NotSolved
17.01.2017 15:40:48 M. Pauldrach
NotSolved
17.01.2017 17:53:42 Mackie
NotSolved