strZip = Application.GetSaveAsFilename(ThisWorkbook.Path & "\Bedingungen Zip Test\" & Range("D4").value & " " & format(now,"yyyymmdd_hhmm") & " Bedingungen SVFP.zip", "*.zip,*.zip")