Office: (Office 2010) Datei speichern unter, Button abbrechen Makro beenden

Hallo zusammen
Ich bin nun seit Stunden am Suchen und komme nicht weiter. Möchte eine Excel-Makrodatei unter dem gleichen Pfad mit einem Dateiname, den ich von einer Zellen hole, abspeichern. Wenn ich jedoch bei der Abfrage speichern unter, den Button Abbrechen aktiviere, sollte das Makro beendet werden.
Wäre sehr froh, wenn mir jemand dabei behilflich sein kann.

Hier das Makro, beim dem die irgendwie das Kommando Exit Sub noch eingebaut werden sollte:

Sub SpeichernUnter()

Dim Dateiname

Dateiname = Sheets("Tabelle1").Range("A1")

Application.Dialogs(xlDialogSaveAs).Show Dateiname


End Sub


Bereits im voraus herzliche Dank für die Mithilfe

Gruss
Peter

:)

 

Hallo Peter,

habe ich einen Denkfehler beim Interpretieren Deiner Beschreibung?

Wenn Pfad und Dateiname bekannt und vorgegeben sind kannst Du das Speichern gleich direkt ausführen. Da braucht es keinen Dialog mit Abbruchmöglichkeit.

 

Hallo
Nein hast du nicht, würde aber gerne Speichern unter benützen, damit ich die Möglichkeit habe, den Pfad zu wechseln. Dateinname bleibt immer gleich.

 

Hallo Peter,

hier zwei Varianten, bei denen mal nur das Verzeichnis und mal sowohl das Verzeichnis als auch der Dateiname abweichend vom Vorschlag bestimmt werden kann. Natürlich mit Abbruchmöglichkeit: Code:

 

Vielen Dank für die Antwort, beide Vorschläge funktionieren soweit und löst einen Teil meiner Herausforderung.

Wenn ich bei der Abfrage Speichern unter auf Abbrechen klicke, sollte jedoch das Makro beendet (Exit Sub) werden, damit in meinem File die nachfolgenden Makros nicht mehr ausgeführt werden. Gibt es dafür eine Möglichkeit? Habe es mit

With Application.FileDialog(msoFileDialogSaveAs)
.AllowMultiSelect = False 'nur ein Dateiname
.InitialFileName = sDateiname 'Ablagevorschlag
If .Show = True Then 'nur bei OK speichern
'Debug.Print .SelectedItems(1)
ActiveWorkbook.SaveAs .SelectedItems(1)
Else
Exit Sub
End If
End With

versucht, leider ohne Erfolg. Wäre sehr dankbar über eine Lösung.

 

Hallo Peter,

Das glaube ich so nicht, denn Exit Sub funktioniert bestimmt. *eek.gif* Wenn Du eine - ggf. anonymisierte - Mappe inkl. Code hier hochlädst wird sich das aufklären lassen.

 

Ja werde ich gerne tun. Muss aber zuerst Datei umbauen.

 

Hier die Datei, Makro Monatsabschluss starten bzw. im Tabellenblatt Base mit dem" Button Monatsabschluss und neue Monatsdatei vorbereiten" starten, wenn Datei Speicher kommt und dann Abbrechen angeklickt wird, läuft der Makro weiter.

 

Hallo,

so:

Code:

Code:

 

Super, damit funktioniert alles so, wie ich es mir vorgestellt habe. Verstehe noch nicht ganz, wieso das so funktioniert, Hauptsache es geht. Vielen Dank.