Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

speicherort für "speichern unter" ändern

speicherort für "speichern unter" ändern
09.04.2006 15:53:19
Wolfgang
Hallo Excelfreunde,
habe ein Problem aber vielleicht kann mir ja jemand helfen.
Wenn ich aus einer Vorlage heraus eine Arbeitsmappe öffne wird beim anklicken von Datei - Speichern im Menü der Dialog "Speichern unter" geöffnet. Ist es möglich per Code den Standart Speicherort nur für diese Mappe zu ändern. Ich möchte weiterhin die Speicherung über das Menü verwenden. In anderen Arbeitsmappen soll der Standart Speicherort wieder hergestellt werden.
Wolfgang

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: speicherort für "speichern unter" ändern
09.04.2006 18:28:14
bissi
Hallo Wolfgang,
Hier ein Code, den ich aus dem Forum habe.
In diesem Beispiel steht der Dateiname in Zelle A1. Pafd musst du entsprechen ändern.

Sub speichern()
Dim pfad As String
Dim name As String
Dim SP_unter
pfad = "c:\test\"
name = Range("A1").Text ' hier der Dateiname aus Zelle A1
If Dir(Left(pfad, Len(pfad) - 1), vbDirectory) = "" Then
MsgBox "Pfad nicht vorhanden!" & vbCr & " Wählen Sie Pfad!", vbCritical, "Fehler"
Else
ChDrive Left(pfad, 1)
ChDir pfad
End If
SP_unter = Application.GetSaveAsFilename(InitialFileName:=name, FileFilter:="Microsoft Office Excel-Arbeitsmappe (*.xls, *.xls")
If SP_unter <> False Then ActiveWorkbook.SaveAs Filename:=SP_unter
End Sub

Anzeige
AW: speicherort für "speichern unter" ändern
09.04.2006 20:19:44
Wolfgang
Super Danke,
hab den Code noch ein bisschen verändert aber jetzt geht´s.
Danke nochmal
Gruß Wolfgang

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige