Datei speichern unter...
22.04.2016 11:00:05
cH_rI_sI
ich verwende aus einem Beispiel u.a. Coding, in welchem ich zusätzlich den Dateinamen vorgebe - wenn ich dann speichere, fehlt jedoch der Dateiname:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim varWorkbookName As String, Datname As String
Dim xbCModus As Integer
Datname = "Quote" & "_" & Sheets("Top").Range("P31").Text & "_" & Sheets("Top").Range("AV31"). _
Text
Application.EnableEvents = False
If SaveAsUI = True Then
varWorkbookName = Application.GetSaveAsFilename( _
InitialFileName:=Datname, _
FileFilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm, Excel Macro Enabled _
Template (*.xltm), *.xltm")
Cancel = True
If varWorkbookName "Falsch" Then
If Application.Version > 11 Then
If Right(varWorkbookName, 4) = "xlsm" Then vartyp = _
xlOpenXMLWorkbookMacroEnabled Else vartyp = xlOpenXMLTemplateMacroEnabled '52,53
ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=vartyp
Else 'save fuer altes office
End If
End If
End If
Application.EnableEvents = True
End Sub
Kann mir jemand sagen warum? Ich denke es liegt am Ermitteln des Textes aus Zelle P31 und AV31 weil wenn ich als Name nur "Quote" angebe, dann erscheint beim Speichern auch dieser Name...
Jemand eine Ahnung was das Problem ist? Bitte, Danke!
Lg,
Chrisi