PROBLEME BEIM SPEICHERN UNTER

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ist mir bekannt.
Die GetSaveAsFilename-Methode funktioniert ja auch bei mir, aber zum besseren Verständnis eine Erläuterung.

Die GetSaveAsFilename-Methode habe ich meinen Bedürfnissen angepasst. Über einen Button sollen 2 bestimmte Tabellenblätter in einer seperaten Datai, unter einem von Daten aus der Datei abhängigen Namen, abgespeichert werden.
Existiert eine Datei mit diesem Namen bereits in dem gewählten Verzeichnis, wird mit ("Die Datei mit dem Namen ... existiert schon an diesem Platz.soll sie ersetzt werden" "Ja" "Nein" "Abbrechen".) gefragt ob die Datei überschrieben werden soll oder nicht.
Klicke ich auf ja, funktioniert es. Klicke ich auf "Abbrechen" oder "Nein" so kommt die Fehlermeldung: Laufzeitfehler 1004
Die methode "SaveAs" für das Objekt _Workbook ist fehlgeschlagen. Ist ja auch an für sich klar, da ich dies in meiner Routine nicht definiert habe. Jetzt benötige ich den Namen dieser Application um so eine Routine Entwickeln zu können.
Weiß jemand den Namen oder hat einen Alternativen Lösungsvorschlag?
Hier noch mein Code


Sub SPEICHERN()
Dim Datum As Variant
Dim Activ As String
Application.ScreenUpdating = False
Projektname = Worksheets("Bewertung").Range("D4")
Datum = Format(Date, "yymmdd")
Sheets(Array("Bewertung", "Eingegebene Daten")).Select
Sheets(Array("Bewertung", "Eingegebene Daten")).Copy
' SPEICHERN MIT EINEM VORGEGEBENEN DATUM UND NAMEN U
NeuName = Datum & "" & Projektname
DlgAnswer = Application.GetSaveAsFilename(InitialFileName:=NeuName, _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If DlgAnswer <> "Falsch" Then
ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal
ActiveWorkbook.Close
Else: ActiveWorkbook.Close SaveChanges:=False
End If
Application.ScreenUpdating = True
End Sub

Dankend für jede Hilfe
christoph

Option Explicit Sub GetSaveAs_Test() Dim GetName As Variant GetName = Application.GetSaveAsFilename("GetSaveAs_Test_BAK", "Excel-Arbeitsmappe (*.xls), *.xls") If GetName <> False Then On Error GoTo ENDE ThisWorkbook.SaveAs GetName End If Exit Sub ENDE: MsgBox "Speichern durch Benutzer abgebrochen!" End Sub

Sub GetSaveAs_Test() Dim GetName As Variant GetName = Application.GetSaveAsFilename("GetSaveAs_Test_BAK", "Excel-Arbeitsmappe (*.xls), *.xls") If GetName <> False Then On Error GoTo ENDE ThisWorkbook.SaveAs GetName End If Exit Sub ENDE: End Sub

Sub SPEICHERN() 'SPEICHERN DER TABELLEN "BEWERTUNG" & "ENGEGEBENE DATEN" IN SEPERATER DATEI Dim DlgAnswer As Variant Application.ScreenUpdating = False Projektname = Worksheets("Bewertung").Range("D4") Datum1 = Worksheets("Bewertung").Range("B29") Sheets(Array("Bewertung", "Eingegebene Daten")).Select Sheets(Array("Bewertung", "Eingegebene Daten")).Copy ' SPEICHERN MIT EINEM VORGEGEBENEN DATUM UND NAMEN NeuName = Datum & "_" & Projektname SprungB: DlgAnswer = Application.GetSaveAsFilename(InitialFileName:=NeuName, _ fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls") 'ABFRAGE FALLS DATEI BEREIT IM GEWÄHLTEN VERZEICHNIS VORHANDEN If DlgAnswer <> False Then Antwort = Dir(DlgAnswer) If Antwort <> "" Then AntwortB = MsgBox("Die Datei mit dem Namen " & Antwort & " existiert bereits. Soll sie ersetzt werden ?", vbYesNoCancel + vbQuestion, "Microsoft Excel") If AntwortB = vbCancel Then Application.DisplayAlerts = False ActiveWorkbook.Close Savechanges:=False Application.ScreenUpdating = True Exit Sub ElseIf AntwortB = vbYes Then Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal ActiveWorkbook.Close ElseIf AntwortB = vbNo Then GoTo SprungB: End If Else: Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal ActiveWorkbook.Close End If Else Application.DisplayAlerts = False: ActiveWorkbook.Close End If Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PROBLEME BEIM SPEICHERN UNTER

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread