ich möchte einen Brief speichern wo am Ende die Uhrzeit steht.
Wenn ich Format(Now, "hh:mm") weglasse, dann funktioniert es.
Ich brauche diese Angabe jedoch, denn was mache ich wenn ich mehrere Briefe
an den gleichen Empfänger sende.
Danke!
Gruß
Sigi
With UFBrief
'Angabe Speicherpfad
sPfad = ThisWorkbook.Path & "\Firma\" & .cboBriefKdAuswahl.Value & "\" & .cboBriefKdProjekt.Value & "\" & "Briefverkehr\"
sPfad1 = ThisWorkbook.Path & "\Firma\" & .cboBriefKdAuswahl.Value & "\" & .cboBriefKdProjekt.Value & "\" & "Briefverkehr\Verschiedenes\"
End With
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
With WksBrief
.Copy
SpName = UFBrief.cboBriefDatum.Value & " " & UFBrief.cboBriefKdAuswahl.Value & " " & UFBrief.cboBriefKdProjekt.Value & Format(Now, "hh:mm")
SpNamepdf = UFBrief.cboBriefDatum.Value & " " & UFBrief.cboBriefKdAuswahl.Value & " " & UFBrief.cboBriefKdProjekt.Value & Format(Now, "hh:mm") & ".pdf"
End With
If SpName = "" Or SpNamepdf = "" Then Exit Sub
ActiveWorkbook.SaveAs sPfad & SpName & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPfad1 & SpNamepdf, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.Close savechanges:=False