Speichern über mso(filedialogsaveas)
27.11.2017 08:25:07
JaScha
da ich an einer Stelle nicht weiter komme bitte ich euch um Eure Hilfe,
da mir bisher mit diesem Forum schon viel geholfen wurde.
Über verschiedene UserForms habe ich eine "Oberfläche" erstellt die Messdaten mit Kopfdaten und Zusatzinformationen ausstattet abspeichert und an ein Auswerteblatt übergibt.
Das Speichern wollte ich über mso(filedialogsaveas) bewältigen...leider wird aber nichts gespeichert. Ich dachte wenn ch den Speichern-Button drücke wird das erledigt.
Die bisherigen Beiträge mit ähnlichen Problem haben mir leider nicht weitergeholfen.
Private Sub CmdSpeichernUndSchliessen_Click()
Dim strPath
Dim pfad As String
pfad = "XXX\XXX\XXX\" & Datei1_ & "\"
WertSpeicherNamen = Datei1_ & "-" & Datei2_ & "-" & Datei5_ & "-" & Datei6_ & "-" & Datei3_ & "- _
" & Datei7_ & "-" & Datei8_ & "-" & Datei4_
strPath = pfad & WertSpeicherNamen & ".xlsx"
Dim fd
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = strPath
.Title = "Messwerte in Versuchsordner als .xlsx speichern."
If .Show = -1 Then
Else
MsgBox "Speichern abgebrochen!"
Exit Sub
End If
End With
If fd False Then fd.Execute
Set fd = Nothing
DateinameDoliDaten = ActiveWorkbook.Name
Call EntwicklerEmail
DatenÜbergabeAuswertung.WerteSchreiben
Unload Me
'Application.DisplayAlerts = False
Application.Quit
'Application.DisplayAlerts = true
End Sub