AW: Dateiname mit Datum und fotlaufender Nummerierung
13.03.2019 15:07:10
Marco
Ich habe Dein Script noch etwas bereinigt, weil alles nicht wirklich gebraucht wurde. Du kannst Dir die passenden Funktionen so am besten raussuchen:
Private Sub SpeichernPDF_Click()
Dim Zaehler As String
Dim Speicherpfad As String
On Error Resume Next
Speicherpfad = "C:\"
Zaehler = Range("B8").Value 'Zelle in der Zaehlerwert gespeichert wird
Zaehler = Zaehler + 1
Range("B8").Value = Zaehler
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.GetSaveAsFilename _
(Speicherpfad & "Transportauftrag__" & Date & "_" & Zaehler & ".pdf")
End Sub
Private Sub SpeichernXML_Click()
Dim Zaehler As String
Dim Speicherpfad As String
On Error Resume Next
Speicherpfad = "C:\"
Zaehler = Range("B8").Value 'Zelle in der Zaehlerwert gespeichert wird
Zaehler = Zaehler + 1
Range("B8").Value = Zaehler
ActiveWorkbook.SaveAs Filename:=Speicherpfad & "Transportauftrag__" & Date & "_" & _
Zaehler & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Private Sub Drucken_Click()
Dim lastrow As String
lastrow = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, searchdirection:= _
xlPrevious).Row
With ActiveSheet
.PageSetup.PrintArea = "A1:Q" & lastrow
.PrintPreview
End With
End Sub
Ja, Du kannst die Meldungen abschalten - wichtig ist nur, dass Du sie am Ende des Scriptes wieder aktivierst. Das machst Du mit DisplayAlerts
Private Sub SpeichernXML_Click()
Application.DisplayAlerts = False
Dim Zaehler As String
Dim Speicherpfad As String
On Error Resume Next
Speicherpfad = "H:\"
Zaehler = Range("B8").Value 'Zelle in der Zaehlerwert gespeichert wird
Zaehler = Zaehler + 1
Range("B8").Value = Zaehler
ActiveWorkbook.SaveAs Filename:=Speicherpfad & "Transportauftrag__" & Date & "_" & _
Zaehler & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub