Office: (Office 2010) VBA

Hallo alle miteinander,

ich möchte eine Funktion in meine Excel Tabelle einbauen welche die vorhandenen Daten verändert. Damit der Benutzer aber die vorhandene Tabelle nicht einfach überschreibt, möchte ich vorher den „Speichern unter“ Dialog aufrufen damit er die Datei unter einem neuen Namen abspeichert. Problem an der Sache ist, dass der Benutzer den „Speichern unter“ Dialog ja auch einfach schließen kann ohne die Datei neu abzuspeichern. Ich würde daher gern in einer IF Abfrage herausfinden ob der Speichern Knopf des Dialogs gedrückt wurde oder nicht. Kann mir evtl. jemand verraten wie das geht?

Außerdem habe ich noch folgende Frage:
Wenn der Speichern unter Dialog auftaucht möchte ich einen Dateinamen vorgeben. Doch leider funktioniert dieser Code nicht:
Code:

Dieser Code funktioniert hingegen schon.
Code:

Wisst Ihr warum das so ist?

:)

 

Hallo,

zu deiner zweiten Frage wegen dem Dateinamen vorgeben, würde ich dies hier mal versuchen.

PHP:

         Dim Filename As String


Filename = ThisWorkbook.Name
Filename = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name)-5)


 

\@Manuel352
Da ich nicht nur den Dateinamen sondern auch den Pfad vorgeben möchte, habe ich das so gemacht:
Code:

Ich schätze mal es liegt an der Pfadangabe. Kann man diese auch anders umsetzen?

 

Hallo Jack,

teste mal:

Public Sub Beispiel()
Dim strFilename As String
With ThisWorkbook
strFilename = Left$(.FullName, InStrRev(.FullName, ".") - 1) & _
" " & Format$(Date, "yyyy_mm_dd")
End With
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 2
.InitialFileName = strFilename
If .Show = -1 Then
.Execute
Else
MsgBox "Abbrechen gedrückt!"
End If
End With
End Sub

 

Genau so hab ich mir das vorgestellt. Tausend Dank dafür :-)