Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler im GetSaveAsFilename-Dialog

Fehler im GetSaveAsFilename-Dialog
25.06.2018 11:28:06
earlycon
Hallo zusammen,
ich bräuchte mal eure Unterstützung.
Ich habe im BeforeSave-Event zuerst verschiedene Anfragen (Berechtigung zum speichern ?, schon gespeichert ?, etc.). Das Event wird dann gecancelt und es folgt
strInitalName = (hier Pfadangabe und Dateiname)
strFileName = Application.GetSaveAsFilename(strInitialName, _
' "Excel Arbeitsmappe (*.xlsx),*.xlsx," & _
' "Excel Arbeitsmappe mit Makros (*.xlsm),*.xlsx," & _
' "Excel 97-2003 Arbeitsmappe (*.xls),*.xls", 2, "Speichern unter")'
ThisWorkbook.SaveAs strFileName
Allerdings schaffe ich es nicht, dass die Datei unter der Pfad- und Dateiangabe in strInitialName gespeichert wird. Es wird immer nur die Originaldatei unter dem originalen Dateinamen gespeichert.
Was mache ich falsch ?
Kann mir bitte jemand helfen ?
Besten Dank und viele Grüße
Stefan

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beschreibe genau: Event wird dann gecancelt (owT)
25.06.2018 11:31:47
EtoPHG

AW: Beschreibe genau: Event wird dann gecancelt (owT)
25.06.2018 11:45:48
earlycon
Cancel = True
Ich dachte das wäre richtig, weil ja danach das ThisWorkbook.SaveAs... kommt.
Gruß
Stefan
AW: Beschreibe genau: Event wird dann gecancelt (owT)
25.06.2018 13:12:07
NonFootie
Hallo,
Nach dem Einlesen via GetSaveAsFilename(... 
    If strFileName  CStr(False) Then
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = True
End If

AW: Beschreibe genau: Event wird dann gecancelt (owT)
25.06.2018 13:12:08
NonFootie
Hallo,
Nach dem Einlesen via GetSaveAsFilename(... 
    If strFileName  CStr(False) Then
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = True
End If

Anzeige
AW: Beschreibe genau: Event wird dann gecancelt (owT)
25.06.2018 15:28:34
earlycon
Hallo und vielen Dank für Deine Rückmeldung.
Ich kann das leider erst morgen testen.
Was ich zwischenzeitlich noch herausbekommen habe:
- wenn ich über mein Speichern-Makro (ruft Thisworkbook.Save auf) speichern möchte,
wird der neue Dateiname ignoriert und es wird nur die Datei gespeichert
- Klicke ich auf das Diskettensymbol, funktioniert der Code, die Speicherplatzabfrage kommt
und die Datei wird unter dem neuen Namen gespeichert.
Mir ist leider nicht klar, wo der Unterschied der Speichermethoden liegt.
Aber ich teste morgen zuerst mal Deinen Code.
Viele Grüße
Stefan
Anzeige
AW: Beschreibe genau: Event wird dann gecancelt (owT)
25.06.2018 17:49:12
Daniel
Hi
eigentlich müssten beide Methoden das BeforeSave-Event aufrufen.
Setze mal einen Haltepunkt an den anfang des BeforeSave-makros (klick auf den breiten Rahmen an der linken seite des Codefensters oder füge den Befehl Stop ein.
das Makro stoppt dann an dieser stelle und du erkennst, ob es überhaupt ausgeführt wird.
was mir so spontan einfallen würde, vielleicht hast du in deinem Speichermakro ja den Befehl Application.EnableEvents = False gesetzt, und dieser verhindert das ausführen der Eventmakros.
Gruß Daniel
AW: Beschreibe genau: Event wird dann gecancelt (owT)
26.06.2018 08:19:12
earlycon
Guten Morgen Daniel,
Danke für Deine Rückmeldung.
Ja, das BeforeSave-Events läuft sauber durch. Nur bei ThisWorkbook.SaveAs Filename:=strFileName speichert Excel die Datei nicht unter dem neuen Namen, sondern führt einfach nur ein normales Save der Datei durch.
Ich habe den Code in der Antwort von NonFootie gepostet.
Vielleicht fällt Dir da ja was auf, wenn Du mal drauschauen magst...
Gruß Stefan
Anzeige
AW: Beschreibe genau: Event wird dann gecancelt (owT)
26.06.2018 07:28:12
earlycon
Guten Morgen zusammen,
zuerst einmal vielen Dank für Eure Hilfe.
Leider bin ich bisher nicht weiter gekommen. Die Datei wird nach wie vor zwar gespeichert, aber eben nicht unter dem unter GetSaveAs vergebenen Dateinamen. Wenn ich auf das Diskettensymbol klicke, funktioniert der Code und die Datei wird unter dem neuen Namen gespeichert. Ich poste nachfolgend mal den Code dafür, vielleicht fällt Euch im Zusammenhang noch ein Fehler auf. Ich verstehe es einfach nicht.
Besten Dank und viele Grüße
Stefan
Sub Speichern() ' (Dieses Sub wird über einen Button gestartet und ruft die BeforeSave auf)
ThisWorkbook.Save
End Sub 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strFileName As String, strInitialName As String
On Error GoTo Errorhandler
Cancel = True
strFileName = Application.GetSaveAsFilename(strInitialName, _
"Excel Arbeitsmappe (*.xlsx),*.xlsx," & _
"Excel Arbeitsmappe mit Makros (*.xlsm),*.xlsx," & _
"Excel 97-2003 Arbeitsmappe (*.xls),*.xls", 2, "Speichern unter") '
If strFileName = "Falsch" Then  ' Abbrechen gedrückt
Sheets("Formular").Shapes("Speichern").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(92,  _
195, 55)
Sheets("Formular").Shapes("Gespeichert").Visible = False
Sheets("Formular").Shapes("Normal_speichern").Visible = False
Cancel = True: Application.EnableEvents = True
Exit Sub
Else
Sheets("Formular").Shapes("Gespeichert").Visible = True
Sheets("Formular").Shapes("Normal_speichern").Visible = True
Sheets("Formular").Shapes("Speichern").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255,  _
204, 0)
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If
Application.EnableEvents = True
Exit Sub
Errorhandler:
Cancel = True
Sheets("Formular").Shapes("Speichern").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255,  _
255, 255) ' Weiß
MsgBox "Es ist ein Fehler aufgetreten !", vbCritical, "Achtung !"
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

GetSaveAsFilename
Frank68

Halle Gemeinde,
eine Frage: Kann ich die Methode GetSaveAsFilename so modifizieren, dass im Dialogfeld ein bestimmter Dateiname (= Vorschlag) steht, der beispielsweise aus einer Zelle dieser Tabelle "gezogen" wird?
Dank!
20.01.2009 00:49:10
Thread-ID: 1041695
4 Beiträge
Anzeige
GetSaveAsFilename
Ansgar

Hallo Experten,
ein unter Excel 2000 erstellter Code beinhaltet den GetSaveAsFilename-Befehl. Dieser funktionerte dort problemlos.
Jetzt läuft das Makro aber unter Excel 2007. Das Abspeicher funktioniert mit
fname = Application.GetSaveAsFilename("LISTUNGEN", _ "Excel 97-2003-Arbeit...
17.05.2010 18:36:27
Thread-ID: 1157428
6 Beiträge
Application.GetSaveAsFilename
Lutz

Hallo,
wenn ich
varPfad = Application.GetSaveAsFilename
aus einem Makro heraus starte, erhalte ich ja den Pfad zurück.
Wie kann ich die Rückmeldung abfragen, wenn der Dialog über die Excel-Schaltfläche gestartet wurde?
M.f.G.
Lutz
22.10.2010 07:13:25
Thread-ID: 1183442
13 Beiträge
Anzeige
Application.GetSaveAsFilename
Rainer

Hallo allerseits,Eine Frage: Wenn ich den Befehl Application.GetSaveAsFilename gebe, dann würde ich gerne im Vorfeld einen neuen Filenamen als Vorgabe übergeben. Man soll selbst wählen können, wohin, aber nur den Namen möchte ich vorher noch automatisch abändern. Soll als Backup-Funktion dienen...
11.07.2002 11:58:06
Thread-ID: 135731
2 Beiträge
GetSaveAsFilename und Punkt
matzemalzbier

Hallo liebes Forum.
Eine Arbeitsmappe die mit Excel 2000 erstellt wurde, verwendet die GetSaveAsFilename Methode.
Der Speichern Unter Dialog wurde aufgerufen und der Vorgelegte Dateiname sah in etwa so aus: 2013.10 Dateiname.xls
Mit Excel 2007 wird der Dateinmae nicht mehr vorgelegt...
09.10.2013 14:01:42
Thread-ID: 1333726
3 Beiträge
Application.GetSaveAsFilename
Andi

Es gibt ein VBA Befehl um Blätter als pdf zu speichern:
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & "SV-" & SVTyp & "_" & Blatt.Name & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
Sheets(Blatt....
24.02.2015 17:57:13
Thread-ID: 1411283
4 Beiträge
GetSaveAsFilename nur bestimmten Bereich als PDF
Thomas

Sehr geehrte Damen und Herren,
ich suche mir jetzt schon stundenlang die Finger wund ;) leider ohne Ergebnis.
Folgende Problemstellung:
Ich habe ein Rechnungsdokument erstellt. Nun möchte ich mittels Schaltfläche die Rechnung automatisch in dem
Rechnungsordner als PDF ablegen un...
05.01.2016 10:55:34
Thread-ID: 1467115
3 Beiträge
Pfad nach GetSaveAsFilename ermitteln
Michael Heering

Hallo Miteinander!Wie kann ich nach einem GetSaveAsFilename den Pfad der zu speichernden Datei ermitteln?Un wie kann ich den Wert für das nächste Speichern als Vorlage nehmen?Vielen Dank
Michael Heering
31.08.2002 16:27:11
Thread-ID: 154932
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
5
12
1
1
2
3
2
2
4
2
2
3
5
2
3
2
1
4
2
5
4
3
1