SpeicherButton übernimmt keine änderungen
17.12.2015 08:35:35
Louis
ich möchte gerne einen "Speichern" unter Button in meiner Userform.
Mit meinem derzeitigen Code wird zwar eine neue Datei erstellt jedoch werden keine EInträge übernommen. Ich hab also ein Standardformular und möchte das ich das das immer anders befüllen kann und unter einem anderen Namen abspeichern.
Private Sub cmdSpeichern_Click()
'Speicherbefehl
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim Pfad As String
Dim Dateiname As String
Dateiname = Application.InputBox(prompt:="Bitte Informationsnamen eingeben:")
Dateiname = Dateiname & " -Klassifizierung " & Format(Now, "DD-MM-YYYY") & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Dateiname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Formular speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub
Was fehlt bzw ist falsch ?