Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

speichern unter makro 2 Pfade

Forumthread: speichern unter makro 2 Pfade

speichern unter makro 2 Pfade
17.03.2016 23:47:18
Gisela
Hallo Gemeinde,
ich brauche ein Makro, welches in einem festgelegten Pfad die Datei unter dem Namen "BerlinBriefe12" speichert und automatisch die Abfrage, ob die bereits vorhandene Datei überschrieben werden soll, bejaht und dann mich fragt, ob ich die Datei im ursprgl. Verzeichnis gespeichert haben will.
Bsp:
"BerlinBriefe12" ist
in C:\Briefe\Berlin\
gespeichert und soll
in H:\Briefe\Berlin\
die bereits dort vorhandene Datei "BerlinBriefe12" ohne Nachfrage überschreiben, sodann soll ich gefragt werden, ob ich "BerlinBriefe12"
in C:\Briefe\Berlin\
überschrieben haben will.
Vielen Dank und Grüsse
Gisela

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: speichern unter makro 2 Pfade
18.03.2016 08:38:02
Michael
Also, für folgende Vorannahmen:
- Datei ist eine ".xlsx"
- Pfad und Name bleiben gleich
- Auslösen mit Button
folgender Code im Angebot:
Dim pfad1, pfad2, nameDatei as string
nameDatei = "BerlinBriefe12.xlsx" 'alternativ ActiveWorkbook.Name
pfad1 = "H:\Briefe\Berlin\"
pfad2 = "C:\Briefe\Berlin\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs pfad1 & nameDatei
Application.DisplayAlerts = true
ActiveWorkbook.SaveAs pfad2 & nameDatei
end sub
Liebe Grüße
Michael

Anzeige
AW: speichern unter makro 2 Pfade
18.03.2016 15:10:16
Steve
Hallo Gisela,
schau dir bitte mal an ob das deinen Vorstellungen entspricht. Sei aber gewarnt, in deiner gewünschten Reihenfolge ist bei der Auswahl "Nein" am Ende das Dokument aus Laufwerk H offen, währen bei "Ja" das Dokument aus C offen ist. Wenn du das Speichern Unter auf Laufwerk H hinten ransetzt wäre wenigstens immer das Dokument auf diesem Laufwerk offen.
lg Steve 
Sub Speichern()
Dim sVerz As String, sUVerz As String
With ThisWorkbook
sUVerz = ThisWorkbook.Path 'ursprüngliches Verzeichnis
sVerz = "H:\Briefe\Berlin"
Application.DisplayAlerts = False
.SaveAs sVerz & "\" & .Name, .FileFormat
Application.DisplayAlerts = True
If MsgBox("Möchten sie die Datei im ursprünglichen Verzeichnis ebenfalls speichern?", _
vbYesNo, "Eingabe erforderlich") = vbYes Then
Application.DisplayAlerts = False
.SaveAs sUVerz & "\" & .Name, .FileFormat
Application.DisplayAlerts = True
End If
End With
End Sub
Anzeige
AW: speichern unter makro 2 Pfade
19.03.2016 04:00:57
Gisela
Hallo Steve,
klappt bestens, danke!
Noch eine Frage: wenn ich unter H speichere und dann die Datei automatisch schliessen lassen will, wie kann ich diesen letzten Schritt noch implementieren?
LG
Gisela

AW: speichern unter makro 2 Pfade
21.03.2016 08:53:37
Steve
Hallo Gisela,
da nur diese eine Mappe offen ist, kann man die Mappe mit einer einfachen Zeile schließen: 
ThisWorkbook.Close
lg Steve

Anzeige
AW: speichern unter makro 2 Pfade
21.03.2016 18:07:46
Gisela
Hallo Steve,
vielen Dank für Deine ANtwort; hatte ich zu knapp formuliert, ich meinte, wei kann ich nur das Verzeicchnis wechseln, bsp. von C:\Briefe\Berlin auf F:\Briefe\Berlin und dann speichern (der 2. Part ist jetzt klar).
BG
Gisela
;

Forumthreads zu verwandten Themen

Wie heißt Speichern unter nur mit Pfadauswahl?
Jörg-HH

Guten Abend zusammen
vor einiger Zeit war ich mal auf einen Speichern-unter-Dialog gestoßen, bei dem der Dateiname vorgegeben sein kann und gar nicht zu sehen ist. Der User kann nur einen beliebigen Ordner auswählen.
Ich weiß nicht mehr, wie das Ding in VBA heißt und kann demnach auch n...
12.12.2009 21:09:01
Thread-ID: 1123542
16 Beiträge
Speichern unter - Pfad wird nicht genommen
Udo

Hallo zusammen!
Ich möchte eine Datei unter einem bestimmten Namen und in einem bestimmten Ordner speichern.
Den Namen und die Dateiendung (mit Makro) bekomme ich hin. Der gewählte Ordner wird aber nicht _ angezeigt, sondern immer der zuletzt verwendete Ordner. Sub speichern() Sheet...
28.10.2010 19:19:28
Thread-ID: 1184333
7 Beiträge
Speichern unter - Dateipfad in Zelle speichern
kle

Hallo,
Wie kann ich den Pfad und den Dateinamen einer Datei in eine Zelle schreiben, aus dem Befehl Speichern unter heraus ?
Ich kopiere 2 Arbeitsblätter in eine neue Datei und nun soll diese Datei mit Speichern unter vom USer in ein Pfad x gespeichert werden.
Das klappt soweit mit:...
18.03.2011 07:51:23
Thread-ID: 1206262
5 Beiträge
Speichern unter - Dateipfad vorschlagen
Mister

Guten Morgen,
ich stehe wieder auf dem Schlauch. Ich möchte bei Öffnen des "Speichern Unter" Fensters per VBA den Pfad des Ordners "Eigene Dokumente" anzeigen lassen. Meine Datei wird auf vielen PC genutzt, sodass der Pfad eingelesen werden muss. Hier der Code:
Sub Eigene_Dateien()...
22.09.2011 09:54:43
Thread-ID: 1231017
4 Beiträge
Anzeige
"Speichern unter" mit festem Pfad
Franz

Hallo Fachleute,
ich rufe per Makro einen PDF-Creator auf:
Application.ActivePrinter = "PDF-XChange 4.0 auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDF-XChange 4.0 auf Ne00:"
Damit geht der PDF-Creator mit dem "Speichern unter" Fenster auf.<...
31.10.2011 14:17:19
Thread-ID: 1235553
2 Beiträge
Speichern unter mit Pfad
Dani

Hallo zusammen
Ich brauche da wieder mal eure Hilfe für mein Problem.
Folgender Code bringt bei mir ein Laufzeitfehler 1004 Private Sub CommandButton3_Click() Dim Pfad As String Dim SpeicherName As String Dim Speicherpfad As String Pfad = Cells(1, 13) Speicherpfad = Pfad 'aus Zelle I1+...
06.09.2013 00:17:49
Thread-ID: 1329729
7 Beiträge
Anzeige
Speichern unter variabelem Pfad und Namen
Matthias

Hallo,
Ich habe ein Problem,
ich möchte ein einzelnes Arbeitsblatt einer Mappe unter einem variabelem Pfad und Dateinamen Speichern,
hierbei sollen die Makros der Mappe aber nicht mitgespeichert werden.
mein bisheriger Code sieht wie folgt aus: Private Sub CommandButton1_Clic...
06.12.2013 13:23:06
Thread-ID: 1341572
4 Beiträge
Speichern unter mit Pfad
Noureddine

Hallo zusammen,
ich suche einen Code der mir meine Datei in einem vorbestimmen Pfad speichert. Es soll jedoch nicht der Win-Explorer geöffnet werden, während der Laufzeit. Gib es da etwas....?
Danke vorab.
01.10.2015 20:57:28
Thread-ID: 1450403
10 Beiträge
Malro: Speichern unter mit relativem Pfad?
Ralf

Hallo,
ich habe noch ein Problem mit meiner Tipp - Tabelle:
In einem Makro möchte ich mehrere Arbeitsblätter als htm - Datei in einem bestimmte Unterordner speichern. Von der xlsm - Datei aus gesehen liegt dieser in
\homepage\Fieber
Ich habe ein Beispiel - Makro aufgezeichnet....
29.05.2016 08:16:20
Thread-ID: 1495748
22 Beiträge
Worddokument speichern unter und Pfad merken
Werner

Hallo!
Ich dachte, ich hätte mein Problem durch das Internet gelöst:
Ich öffne eine Word-Datei schreibgeschützt.
Von Excel aus schicke ich Daten in verschiedene Formularfelder.
Gleich danach soll in Word der "Speichern unter"-Dialog geöffnet werden.
Der Anwender soll sich ei...
27.07.2016 08:24:09
Thread-ID: 1506399
7 Beiträge
Speichern unter - Feld öffnen+ Vorschlag Pfad
Sunny

Hallo zusammen,
ich benötige nochmal eure Hilfe:
In meiner Datei möchte ich per Schaltfläche die Tabelle "Auswertung" in eine separate Excel-Datei abspeichern (nur Werte nicht Formeln kopieren) und anschließend einen Blattschutz darüber legen.
Mit Hilfe des Makrorekorders habe ich...
12.10.2016 17:31:11
Thread-ID: 1519341
4 Beiträge
Speichern unter -> Dateipfad in String speichern??
Pasqual

Hallo,
ich möchte gerne eine Excelmappe mit einem vorgegebenem Namen durch aufrufen eines Makros speichern.
Das habe ich folgendermaßen gelöst bzw. mir aus dem Internet besorgt.
Sub Speichern_unter_aufrufen() Dim Dateiname As String Dateiname = "TEST" Application.Dialogs(xlDialogSa...
17.01.2017 15:27:08
Thread-ID: 1535584
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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