Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für aktuell geöffn. Datei mit gleichen Namen speichern

Forumthread: Makro für aktuell geöffn. Datei mit gleichen Namen speichern

Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:57:21
Silke
Hallo,
habe leider wenige VBA Kenntnisse und habe bisher nur den Makro Recorder benutzt und evtl. danach wenige Änderungen am Makro gemacht.
Ich benötige ein Makro das die jeweils geöffnete Excel Datei mit gleichem Namen in zwei verschiedene Verzeichnisse speichert.
Dieses Makro soll aber für verschiedene Dateien benutzt werden und den Namen der jeweils geöffneten Datei verwenden
Wenn mir jemand helfen könnte wäre das super nett.
Vielen Dank
Silke
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 13:18:49
ralf_b
und was wirft dein Makrorekorder aus?
AW: Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 13:27:43
MCO
Hallo Silke!

Das Makro musst du in ein add-in packen.
Neue Datei, speichern als .xlam, diese Datei als add-in einbinden. Da kopierst du das Makro rein und kannst es dann über "Menü anpassen" in deiner Symbolleiste unterbringen.

Ich hab es jetzt nicht getestet, aber so sollte es gehen: 

Sub speichern()

    Dim wb_Name As String

    Dim pfad_1 As String

    Dim pfad_2 As String



    wb_Name = ActiveWorkbook.Name

    

    pfad_1 = "C:\Temp\"

    pfad_2 = "C:\Temp2\"

    

    ActiveWorkbook.SaveAs pfad_1 & wb_Name '1x speichern

    FileCopy pfad_1 & Name, pfad_2 & wb_Name '1x kopieren

End Sub


Die Pfade musst du natürlich anpassen.

Gruß, MCO
Anzeige
AW: Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 13:40:02
Silke
Hallo,
danke für die schnelle Antwort.
Die Datei wird im 1. Verzeichnis problemlos gespeichert, dann stoppt das Makro:
Laufzeitfehler 52
Dateiname oder -nummer falsch

Sub speichern_unter()

Dim wb_Name As String
Dim pfad_1 As String
Dim pfad_2 As String

wb_Name = ActiveWorkbook.Name

pfad_1 = "F:\Dokumente\a\"
pfad_2 = "F:\Dokumente\b\"

ActiveWorkbook.SaveAs pfad_1 & wb_Name '1x speichern
FileCopy pfad_1 & Name, pfad_2 & wb_Name '1x kopieren
End Sub

Gruß Silke
Anzeige
AW: Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 13:48:13
Onur 
Private Sub CommandButton1_Click()

    Dim path1, path2, path0

    path1 = "C:\Users\onure\Desktop\"

    path2 = "E:\DownloadsE\"

    path0 = ThisWorkbook.Path

    MsgBox ActiveWorkbook.Name

'    ActiveWorkbook.SaveAs path1 & ActiveWorkbook.Name 'Wenn die AKTIVE Datei gespeichert werden soll

'    ActiveWorkbook.SaveAs path2 & ActiveWorkbook.Name 'Wenn die AKTIVE Datei gespeichert werden soll

    ThisWorkbook.SaveAs path1 & ActiveWorkbook.Name 'Wenn DIESE Datei gespeichert werden soll

    ThisWorkbook.SaveAs path2 & ActiveWorkbook.Name 'Wenn DIESE Datei gespeichert werden soll

    ChDir path0

End Sub
Anzeige
AW: Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 15:05:49
Silke
Hallo,
Danke für sie schnelle Antwort.
Hab heute und morgen Früh mehrere Vikos,
Komm erst morgen Mittag dazu.
Melde mich
Gruß
Silke
AW: Makro für aktuell geöffn. Datei mit gleichen Namen speichern
24.04.2024 14:48:15
Silke
Hallo,
klappt wunderbar.
Vielen lieben Dank, das hilft mir sehr.
Gruß Silke
Gerne !
24.04.2024 14:50:16
Onur
Anzeige
AW: Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 13:24:13
Silke
Hallo,
das hat gar nicht funktioniert, daher gleich wieder gelöscht.
Hat die Datei unter dem Namen zwar im gewünschten Verzeichnis gespeichert, aber bei der#
nächsten geöffneten Datei mit anderem Namen hat er diese unter dem 1. Namen abgespeichert.
Daher völlig unnütz.
Gruß Silke
Anzeige
;

Forumthreads zu verwandten Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Datei speichern unter mit Zellverknüpfung
herbi

Hallo,
habe schon viel im Forum gesucht, komme aber mit meinem Problem nicht weiter.
habe eine Datei mit Namen z.b. test.xls
in Zelle b8 steht ein Datum, im Format TT.MM.YYYY zum Beispiel 01.03.2009
ich möchte per Makro die "Datei speichern unter" den alten Namen um das Datum de...
04.03.2009 14:12:05
Thread-ID: 1056392
5 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Anzeige
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
Makro Drucken & Speichern unter
massimo17

Hallo,
ich habe folgendes Makro, dass aus Excel eine Word-Datei mit Serienfunktion öffnet.
Wie kann ich automatisieren,
dass diese auch gleich gedruckt wird?
dass diese unter einem Namen i.A. von einer Zelle gespeichert wird?
Private Sub CommandButton2_Click() Dim wApp A...
02.07.2009 11:42:40
Thread-ID: 1085901
4 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
arbeitsmappe öffnen, speichern und schließen
otto

Hi,
ich habe eine Arbeitsmappe mit einer Webabfrage.
Beim starten des PC öffnet sich die Arbeitsmappe(Autostart) und im Workbook.Open Ereignis wird die Abfrage aktualisiert.
Nun möchte ich, dass die Arbeitsmappe nach der Aktualisierung automatisch gespeichert und geschlossen wird. W...
27.08.2009 11:35:34
Thread-ID: 1098953
3 Beiträge
Datei speichern unter +1 vomn Datei | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
zunächst mal ein frohes neues Jahr an Allen....und hoffe euch Allen geht's gut.... :D
Brauche mal wieder eure Hilfe, und zwar:
In einem Ordner soll eine Datei abgespeichert werden, Speichername soll sein: 001-heutiges Datum (001-05.01.2010) die Nummer soll dann imme...
05.01.2010 11:59:44
Thread-ID: 1127262
5 Beiträge
Makro - ohne speichern schließen
Wolfango

Hallo Experten,
mit dem Recorder habe ich ein Makro aufgezeichnet welches damit endet, dass eine Tabelle gedruckt wird.
Nun möchte ich dem Makro-Code so erweitern, dass die Datei automatisch geschlossen wird, ohne(!) dass sie gespeichert wird.
Das muss doch irgendwie gehen - oder...
09.03.2010 16:15:57
Thread-ID: 1144639
3 Beiträge
Anzeige
Speichern und schließen eines Tabellenblattes
Peter

Hallo,
ich habe mir mit Hilfe/Makrorekorder diesen Code zusammengebaut:
Dim wb As Workbook, wbneu As Workbook Dim intI As Integer Dim astrLinks As Variant Set wb = ThisWorkbook ThisWorkbook.Sheets("Data").Copy Set wbneu = ActiveWorkbook Application.DisplayAlerts = False With wbneu ....
09.04.2010 09:53:30
Thread-ID: 1150746
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige