Kurze Hilfe Bitte :/
09.06.2016 12:51:22
Serkan
ich habe das unten stehende Makro. Wird ohne Fehler ausgeführt, alles passt soweit. Allerdings wird die Datei aber nicht abgespeichert. Bekomme auch keine Fehlermeldung oder ähnliches. Wo liegt der Fehler? Habe schon versucht, stehe da aber auf dem Schlauch. Wäre für eine schnelle Hilfe dankbar. Danke schon einmal.
Sub GesamteExcelalsXLSMspeichern()
msg = MsgBox("Haben Sie die richtige Referenznummer eingetragen?", vbYesNo)
If msg = vbYes Then
Else
MsgBox "Bitte tragen Sie die richtige Referenznummer ein!"
End If
Dim varFilename As Variant
Dim strFileName As String
strFileName = "NH_" & Range("D4") & "_" & "Projekt_" & Range("D5") & "_" & "Ref_" & Range("D7") _
_
_
& "_" & Range("D6") & "_" & Right(Range("E36"), 2) & Mid(Range("E36"), 4, 2) & Left(Range("E36" _
_
), 2)
varFilename = Application.GetSaveAsFilename( _
InitialFileName:="Q:\GRP-0071\" & strFileName, _
FileFilter:="XLSM (*.xlsm), *.xlsm", _
Title:="als XLSM speichern")
If varFilename False Then
ThisWorkbook.ExportAsFixedFormat _
Type:=xlTypeXLSM, _
Filename:=varFilename
End If
End Sub
i>