Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei in 2 Ordnern speichern

Datei in 2 Ordnern speichern
21.09.2022 16:00:49
werden2
Hallo
Habe eine Tabelle und möchte sie beim Beenden automatisch in 2 Ordnern speichern.
Unter 1 Ordner speichern funktioniert mit diesem Makro im Modul1:

Sub Auto_Close()
ActiveWorkbook.SaveAs "D:\Moz-Acer\001 EiDat\15 Gewicht\2022\" & Range("C9").Value & Range("I1").Value & _
Range("B9") & " - " & Format(Date, "MMMM - YYYY - YYYY.MM.DD") & ".xlsm"
ActiveWorkbook.Save
End Sub
Nun soll aber die Datei gleichzeitig im Ordner mit dem Verzeichnis: D:\Moz-Acer\001 EiDat\01 Handy-PC\Monatswerte\Gewicht
gespeichert werden.
Wer kann mir dieses Makro abändern, so dass ich es nur einfügen muss?
Werner

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei in 2 Ordnern speichern
21.09.2022 16:19:49
Werner
Entschuldigung,
2. Speicherort ist: C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht
AW: Datei in 2 Ordnern speichern
21.09.2022 17:10:22
onur
Echt jetzt?
Wo ist denn das Problem, die Zeile mit dem SaveAs nochmal drunterzuschreiben, nur mit dem anderen Pfad?
AW: Datei in 2 Ordnern speichern
21.09.2022 17:39:11
Werner
Habe jetzt folgendes darunter geschrieben:
SaveCopyAs "C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht\" & Range("C9").Value & Range("I1").Value &
Range("B9") & " - " & Format(Date, "MMMM - YYYY - YYYY.MM.DD") & ".xlsm")
Beim schließen kommt folgende Fehlermeldung:
Fehler beim Kompilieren
Syntaxfehler
Komme leider nicht weiter
AW: Datei in 2 Ordnern speichern
21.09.2022 17:48:23
Daniel
Hi
da steht am Schluss noch ein ")", das gehört da nicht hin.
Gruß Daniel
Anzeige
AW: Datei in 2 Ordnern speichern
21.09.2022 17:54:23
Werner
Jetzt abgeändert in:
SaveCopyAs ("C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht\" & Range("C9").Value & Range("I1").Value & _
Range("B9") & " - " & Format(Date, "MMMM - YYYY - YYYY.MM.DD") & ".xlsm"
Trotzdem kommt weiterhin die Fehlermeldung.
AW: Datei in 2 Ordnern speichern
21.09.2022 18:10:06
Daniel
naja jetzt hast du ein "(" zuviel am Anfang.
das hattest du aber vorher nicht.
Wo kommt das plötzlich her?
auch bei "Kaum Excel/VBA-Kenntnisse" sollte man wissen, dass jede "(" auch ein ")" benötigt.
AW: Datei in 2 Ordnern speichern
21.09.2022 18:19:40
Werner
Nochmal der Hinweis wo es gespeichert werden soll:
Hauptverzeichniss (von dort wird die Datei zum bearbeiten geöffnet):
D:\Moz-Acer\001 EiDat\15 Gewicht\2022
2. Speicherort:
C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht
Anzeige
AW: Datei in 2 Ordnern speichern
21.09.2022 18:30:35
Daniel
wie wäre es, wenn du dir mal meine Antworten anschauen würdest?
AW: Datei in 2 Ordnern speichern
21.09.2022 20:20:34
Werner
Hallo Daniel
Auch wenn ich Nerve,
In Modul1 steht jetzt folgendes:

Sub Auto_Close()
ActiveWorkbook.SaveAs "D:\Moz-Acer\001 EiDat\15 Gewicht\2022\" & Range("C9").Value & Range("I1").Value & _
Range("B9") & " - " & Format(Date, "MMMM - YYYY - YYYY.MM.DD") & ".xlsm"
ActiveWorkbook.Save
End Sub
SaveCopyAs "C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht\" & Range("C9").Value & Range("I1").Value &
Range ("B9") & " - " & Format(Date, "MMMM - YYYY - YYYY.MM.DD") & ".xlsm"
Also ohne die besagten Klammern.
Ein Teil davon ist in der Farbe Rot:
SaveCopyAs "C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht\" & Range("C9").Value & Range("I1").Value &
Beim Schließen kommt immer noch der beschriebene Fehler:
Fehler beim Kompilieren
Syntaxfehler
Ich bitte dich deshalb um weitere Hilfe.
Oder kannst du mir den Befehl für das Modul abändern?
Werner
Anzeige
AW: Datei in 2 Ordnern speichern
21.09.2022 20:33:54
Daniel
dein Code.
Du änderst.
oder du bezahlst mich.
steht das wirklich genau so da?
du weißt schon, dass dass das END SUB erst nach dem letzten Befehl stehen darf, denn alle Befehle müssen zu einer Sub gehören und zwischen "Sub Makroname()" und "End Sub" stehen. Außerhalb darf kein Befehl stehen.
schau auch mal aufs Ende der Programmzeilen, die zu lang sind und in der nächsten Zeile weiter gehen und vergleiche die SaveAs-Zeile mit der SaveCopyAs-Zeile.
es müsste dir was auffallen.
ansonsten noch so zur Anordnung.
Wenn du eine Datei mit SaveAs NeuerName speicherst, dann hat die Datei ab sofort den neuen Namen, dh auch ein nachfolgendes Save speichert dann unter diesem neuen Namen.
die Reihenfolge

SaveAs NeuerName
Save
ist also unsinnig, weil damit die Datei 2x unter dem neuen Namen gespeichert wird.
wenn du die Datei zuerst unter dem alten und dann unter dem neuen Namen speichern willst , musst du das umdrehen:

Save
SaveAs NeuerName
das ist auch der Unterschied zwischen SaveAs und SaveCopyAs.
bei SaveAs hat auch die geöffnete Datei sofort den neuen Namen.
bei SaveCopyAs behält sie ihren alten Namen.
Gruß Daniel
Anzeige
AW: Datei in 2 Ordnern speichern
21.09.2022 20:35:02
onur
Ausserdem:

SaveCopyAs "C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht\" & Range("C9").Value & Range("I1").Value &
Range ("B9") & " - " & Format(Date, "MMMM - YYYY - YYYY.MM.DD") & ".xlsm"
sind ZWEI Zeilen.

SaveCopyAs "C:\Users\werde\Dropbox\Onl\Monatswerte\Gewicht\" & Range("C9").Value & Range("I1").Value & Range ("B9") & " - " & Format(Date, "MMMM - YYYY - YYYY.MM.DD") & ".xlsm"
ist EINE Zeile!

303 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17