Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 18:39:44
Hilfe beim VBA-Code
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
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
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Speichern unter... abbrechen?

Forumthread: VBA Speichern unter... abbrechen?

VBA Speichern unter... abbrechen?
28.05.2021 09:11:20
Micha
Hallo liebe Spezialisten, ich brauche mal wieder dringend Eure Unterstützung.
Mit dem folgende Code öffne ich den "Speichern unter..." Dialog bei dem der Dateiname und Speicherort vorgegeben wird.
Zudem wird in in Zelle AF2 "Entwurf" geschrieben.
Bis hierhin klappt das genau so wie es soll!
Nun mein Problem:
Wenn ich im "Speichern unter..." Dialog auf "Abbrechen" klicke soll der Code abgebrochen werden. Auch in Zelle AF2 soll nicht "Entwurf" geschrieben werden.
Für Euch bestimmt wieder nur ein Klacks, aber ich bekomme das nicht hin :-(
Freue mich auf Eure Hilfe.
Vorab vielen Dank
Micha

Public Sub SpeichernUnterEntwurf(control As IRibbonControl)
Dim Dateiname As String
Sheets("Übersicht").Range("AF2").Value = "Entwurf"
With ActiveWorkbook.Worksheets("Übersicht")
Dateiname = "KALK " & Sheets("Übersicht").Range("F3") & "_" & Sheets("Übersicht").Range("F4") & "_" & Sheets("Übersicht").Range("B5") & Sheets("Übersicht").Range("F5") & " " & VBA.Environ("Username") & " " & Format$(Date, "YYYY-MM-DD") & "_Entwurf"
End With
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 2
.InitialFileName = "\\Server0150\Anlage1\Entwurf\" & Dateiname
If .Show Then .Execute
End With
End Sub
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Speichern unter... abbrechen?
28.05.2021 09:17:19
Hajo_Zi
ich würde mal vermuten
With Application.FileDialog(msoFileDialogSaveAs)
if ActiveWorkbook.saved then
Sheets("Übersicht").Range("AF2").Value = "Entwurf"
End If
GrußformelHomepage
Anzeige
AW: VBA Speichern unter... abbrechen?
28.05.2021 09:26:44
Nepumuk
Hallo Micha,
teste mal:
Code:



[Cc]



Public Sub SpeichernUnterEntwurf(control As IRibbonControl)

  Dim Dateiname As String

  With ThisWorkbook.Worksheets("Übersicht")
      Dateiname = "KALK " & .Range("F3").Text & "_" & .Range("F4").Text & "_" & _
      .Range("B5").Text & .Range("F5").Text & " " & _
      Environ$("Username") & " " & Format$(Date, "YYYY-MM-DD") & "_Entwurf"
  End With

  With Application.FileDialog(msoFileDialogSaveAs)
      .FilterIndex = 2
      .InitialFileName = "\\Server0150\Anlage1\Entwurf\" & Dateiname

      If .Show Then
         Worksheets("Übersicht").Range("AF2").Value = "Entwurf"
         .Execute
      End If
  End With
End Sub
Gruß
Nepumuk
Anzeige
AW: VBA Speichern unter... abbrechen?
28.05.2021 09:46:10
Micha
Hallo Nepumuk, hallo Hajo,
last Euch umarmen :-)
Ihr seid echt spitze und habt mir schon so oft geholfen.
Dieses mal habe ich die Lösung von Nepumuk genommen.
Das hat auf Anhieb geklappt.
Vielen Dank an Euch beide und ein schönes Wochenende
Micha
;

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
Speichern-unter Dialog
steffen

Hallo,
wie kann ich es anstellen, dass im Speichern-Unter-Dialog
Application.Dialogs(xlDialogSaveAs).Show
kein Dateiname vorgegeben wird, also das Feld "Dateiname" leer ist?
Toll wäre noch, das Abbrechen des Dialogfensters zu unterbinden, so dass man gezwungen wird, einen Date...
06.10.2008 14:49:20
Thread-ID: 1014454
5 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
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
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
speichern unter Dialog
Beffen

Hallo nochmal. Die Probleme hören nicht auf ^^
hab in der Forumsliste gesucht, aber nichts passendes gefunden.
arbeite derzeit mit
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="Zeiterfassung " & speichername & ".xls", FileFormat:=xlNormal
On Error GoTo 0
...
10.01.2011 10:33:17
Thread-ID: 1194781
4 Beiträge
Anzeige
Speichern unter Dialog ohne Funktion
Beffen

Huhu,
folgende Frage, liebe Experten:
Ich weiss nicht warum, aber der Code
speichername = tb_name.Value
MsgBox speichername
If Dir("Zeiterfassung " & speichername & ".xls") = "" Then
ActiveWorkbook.SaveAs Filename:="Zeiterfassung " & speichername & ".xls"...
19.01.2011 17:23:35
Thread-ID: 1196452
4 Beiträge
Anzeige
Speichern unter - ohne Dialog und ohne...
KLE

...Meldung, wenn Datei bereits vorhanden.
Hi,
...ich möchte gern eine Datei unter einem bestimmten Namen und Pfad speichern.
In dem Ordner wird es bereits eine Datei mit dem gleichen Namen geben, welche ohne Nachfrage/Hinweis überschrieben werden soll.
Wie kann ich das tun -...
25.10.2011 22:36:09
Thread-ID: 1235393
5 Beiträge
Anzeige
Aus Excel Word-Speichern-Unter-Dialog aufrufen
grossermanitu

Hallo,
ich erstelle aus Excel ein Word-Dokument das im Anschluss den Speichern-Unter-Dialog mit vorgegeben Pfad aufrufen soll. Das ganze funktioniert solange keine anderen Word-Dokumente offen sind.
Wie weiße ich nun zu, dass für das Word-Dokument das gerade erstellt wurde der Speicher...
25.06.2012 20:56:53
Thread-ID: 1268683
3 Beiträge
Speichern unter Dialog mit Zellenprüfung
psy

Hi zusammen,
in Excel besteht die Möglichkeit über Datei - Speichern unter eine Datei zu benennen und zu speichern. Oder man speichert direkt über das Diskettensymbol.
Gibt es eine Möglichkeit, dass wenn die Datei so gespeichert wird, eine Zellenprüfung stattfindet, ob gewisse Zellen ei...
20.10.2014 14:17:52
Thread-ID: 1387547
9 Beiträge
VBA Excel speichern unter Auswahlmöglichkeit?
Michael

Hall Forum,
mit folgendem Code erstelle ich mir eine neue Arbeitsmappe und speichere diese ab:
Workbooks.Add
ActiveWorkbook.SaveAs ("C:\Users\Michael\Desktop\test._" & _
Format(Day(Date), "00") & Format(Month(Date), "00") & Year(Date) & _
".xlsx")
besteht...
17.06.2015 13:04:38
Thread-ID: 1431425
3 Beiträge
VBA Speichern unter
mic13

Hallo zusammen
Ich habe eine VBA zusammengestellt, welches u.a. beim Speichern eine Messagebox anzeigt. Nun möchte ich aber, dass wenn man das Dokument "Speichern unter" anwählt, dann keine Messagebox angezeigt wird. Leider habe ich keine Ahnung, wie ich das abgrenzen kann.
Ich hoffe es...
14.08.2015 08:25:13
Thread-ID: 1442275
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA: Speichern unter... Abbrechen im Excel-Dialog

Schritt-für-Schritt-Anleitung

Um den "Speichern unter..." Dialog in Excel zu nutzen und dabei zu verhindern, dass der Inhalt in Zelle AF2 geschrieben wird, wenn der Benutzer auf "Abbrechen" klickt, kannst Du den folgenden VBA-Code verwenden:

Public Sub SpeichernUnterEntwurf(control As IRibbonControl)
    Dim Dateiname As String
    With ThisWorkbook.Worksheets("Übersicht")
        Dateiname = "KALK " & .Range("F3").Text & "_" & .Range("F4").Text & "_" & _
        .Range("B5").Text & .Range("F5").Text & " " & _
        VBA.Environ("Username") & " " & Format$(Date, "YYYY-MM-DD") & "_Entwurf"
    End With

    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 2
        .InitialFileName = "\\Server0150\Anlage1\Entwurf\" & Dateiname
        If .Show Then
            ThisWorkbook.Worksheets("Übersicht").Range("AF2").Value = "Entwurf"
            .Execute
        End If
    End With
End Sub

Dieser Code fragt den Benutzer nach einem Speicherort und Dateinamen. Wenn der Benutzer jedoch den Dialog abbricht, wird der Inhalt in Zelle AF2 nicht geschrieben.

Häufige Fehler und Lösungen

Fehler 1: Der Code schreibt "Entwurf" in Zelle AF2, auch wenn der Dialog abgebrochen wird.

Lösung: Stelle sicher, dass das If .Show Then korrekt implementiert ist, wie im obigen Code gezeigt. Nur wenn der Benutzer tatsächlich auf "Speichern" klickt, sollte der Wert geschrieben werden.

Alternative Methoden

Eine alternative Methode besteht darin, die ActiveWorkbook.saved-Eigenschaft zu nutzen, um zu überprüfen, ob Änderungen gespeichert wurden, bevor Du den Dialog öffnest. Dies kann in Kombination mit dem vorherigen Code verwendet werden.

If Not ActiveWorkbook.Saved Then
    ' Code zum Öffnen des Speichern-unter-Dialogs
End If

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie Du den Code in Dein Excel-Dokument integrieren kannst:

  1. Öffne den VBA-Editor (Alt + F11).
  2. Füge ein neues Modul hinzu.
  3. Kopiere den oben stehenden Code in das Modul.
  4. Weise dem Makro eine Schaltfläche in Deinem Excel-Dokument zu, um den Dialog zu starten.

Tipps für Profis

  • Nutze die Application.FileDialog-Objekte mit verschiedenen Optionen, um die Benutzererfahrung zu verbessern.
  • Experimentiere mit den Filteroptionen, um nur bestimmte Dateitypen im Dialog anzuzeigen.

FAQ: Häufige Fragen

1. Wie kann ich den Speicherort des Dialogs ändern?
Du kannst den InitialFileName im Code anpassen, um einen anderen Standard-Speicherort festzulegen.

2. Unterstützt dieser Code alle Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen (2010 und später) funktionieren, die das FileDialog-Objekt unterstützen.

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