PROBLEME BEIM SPEICHERN UNTER

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

hallo K.Rola,
"VBA-Kenntnisse Nein" ist übertrieben. Mittlerwiele bekomme ich auch Sachen ohne Makrorekorder hin (mit Recherche im Archiv). Nur für "VBA-Kenntnisse gut" fehlt noch einiges und leider ist die mögliche Differenzierung bie den VBA- Kenntnissen hier nicht so gut.Habe aber eine Lösung hinbekommen. Ist eigentlich ganz simpel:


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

Gruß christoph

Forumthread: PROBLEME BEIM SPEICHERN UNTER

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial