Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Speichern unter ohne die Datei zu öffnen

Speichern unter ohne die Datei zu öffnen
07.06.2024 10:13:07
Max
Hallo liebe Community

Ich habe zum Speichern mit Pfadvorgabe vom lieben Nebumuk folgenden Code verwendet:

 With Application.FileDialog(msoFileDialogSaveAs)

.FilterIndex = 2
.InitialFileName = "G:\Pfad\Datei.xlsm"
If .Show Then .Execute
End With


Dieser funktioniert soweit sehr gut. Nur leider öffnet er die gespeicherte Datei danach.
Ich möchte die originale Datei aber weiter bearbeiten bzw. soll ein Bereich in mehreren Arbeitsblättern gelöscht werden. Das habe ich bislang mit folgendem Makro einzeln gemacht:

 Range("A4:T99").Select

Selection.ClearContents


Das soll natürlich mit nur einem Knopfdruck geschehen.

LG
Max
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter ohne die Datei zu öffnen
07.06.2024 10:39:39
daniel
Hi
beim normalen Speichern wird die alte Datei automatisch zur neuen Datei.
der Speichervorgang, bei dem das nicht passiert, heißt SaveCopyAs.

dim Datei

Datei = application.GetSaveAsFilename
if Vartype(Datei) = vbString then thisworkbook.SaveCopyAs Datei


Gruß Daniel
Anzeige
AW: Speichern unter ohne die Datei zu öffnen
07.06.2024 10:56:55
Max
Das hat schon einmal das größte Problem gelöst. Danke dafür.
Jetzt wäre es noch toll, wenn der Speicherort "vorgeschrieben" wäre.

Gruß
Max
AW: Speichern unter ohne die Datei zu öffnen
07.06.2024 11:12:15
Max
Ich habe es jetzt erstmal so gelöst:
Dim Pfad As String

Pfad = "G:\Pfad"
ThisWorkbook.SaveCopyAs Pfad & "\Datei.xlsm"


Ich schau jetzt noch ob ich den Dateinamen mit aktuellem Datum versehen kann, damit die Datei nicht am nächsten Tag überschrieben wird.

Danke dir Daniel!
Anzeige
AW: Speichern unter ohne die Datei zu öffnen
07.06.2024 11:17:41
daniel
Hi
wenn der Dateiname fest bzw berechnet ist, dann musst du ihn ja nicht abfragen.

das aktuelle Datum kannst du so einbringen:

Pfad = "G:\Pfad"
Datum = Format(Date, "YYYY-MM-DD")
ThisWorkbook.SaveCopyAs Pfad & "\Datei " & Datum & ".xlsm"

Gruß Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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