Button mit Makro Speichern unter und definierten Zielordner

Computer: Software & Programmierung Office Software
#1

Hallo liebe Experten,

da dies nur Experten hinbekommen können, wende ich mich gleich mal hoffentlich an die richtigen.

Kurze Erklärung.

Ich habe eine Excel-Datei die immer auf demselben Laufwerk ist.
Nach Bearbeitung möchte ich gerne diese Excel-Datei auf einem anderen Laufwerk speichern.

So nun zu meinem Problem.

Um den Zielordner zu erreichen muss ich zuerst 10 andere Ordner öffnen bis ich am richtigen bin.

Ist es möglich mit einem Button „Speichern unter“ auszuwählen und dann sofort den Zielordner zu öffnen?

Denn wenn man nur „Speichern unter“ öffnet, so wird der Ordner geöffnet indem die Vorlage liegt. 

Excel 2010 - Bsppfad: O:\Test\Land A\Ebene 23\Gebiet 2…

Vielen Dank für eure Hilfe
Gruß
jlnpipapo

#2

Hallo jlnpipapo,

ich bin zwar bestnfalls ein Hobby-Experte, aber ich versuchs mal:
Kennst du dich ein bisschen mit dem VBA editor aus?
Trage in den Codebereich von „Diese Arbeitsmappe“ folgenden Code ein:

Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 If SaveAsUI Then
 Cancel = True
 With Application.FileDialog(msoFileDialogSaveAs)
 .InitialFileName = "hier Pfad eintragen" & ActiveWorkbook.Name
 If .Show Then ActiveWorkbook.SaveAs .SelectedItems(1)
 End With
 End If
End Sub

Dort wo ich geschrieben habe „hier Pfad eintragen“, musst du statt dessen deinen gewünschten Pfad (mit abschließendem ) zwischen die Anführungszeichen eintragen.
Immer wenn du dann „Speichern Unter“ wählst, sollte er diesen Pfad voreinstellen.

Gruß, Andreas

#3

Hallo nichts sagender Name,

Excel 2010 - Bsppfad: O:\Test\Land A\Ebene 23\Gebiet 2…
Vielen Dank für eure Hilfe

dann stell doch einfach den Speicherort unter Optionen>Speichern um.
Gruß-Wolfgang

#4

VIELEN VIELN DANK !!