Dateiname mit Datum und fotlaufender Nummerierung

Phil · 2019-03-13T13:32:32+00:00

Hallo Ich möchte ein Formular über eine Button als PDF speichern und zum Dateinamen automatisch das heutige Datum was in Tabelle1(Auftrag) Zelle B6 steht und einen Zahler der die letze gespeicherte Datei um einen Zähler erhöht. Sollte dann so aussehen: Transportauftrag_13.03.2019_000001 Das Speichern über den Button habe ich hinbekommen. Beim Rest fehlt mir das die Erfahrung. Private Sub Speichern_Click() Dim Dateiname ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.GetSaveAsFilename(" _ Transportauftrag_" & ".pdf") If Dateiname = False Then Exit Sub ActiveWorkbook.SaveAs (Dateiname) End Sub Danke für Eure Hilfe

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

Hi Phil,
das ist natürlich etwas schwerer so etwas allgemein zu erklären. Auf jeden Fall solltest Du Dir hierfür die Find-Funktion anschauen. Vielleicht hilft Dir dieses kleine Beispiel weiter.
Das Prinzip ist das selbe, müsstest dann halt mit .value die spalten füllen und einzeln abfragen.

Public Sub ProduktFinder()
Dim D As Range
Dim ProdGr_Nr, PRODGRP_BEZ, Produktbezeichnung, ProdName As String
ProdName = InputBox("Produktnamen eingeben")
With Worksheets("PRODUKTE")
'Die Range in der sich die Hilfstabelle befindet auf Seite "Produkte"
Set D = .Range("B2:B100").Find(ProdName, LookIn:=xlValues) 'Such in B
If Not D Is Nothing Then
ProdGr_Nr = .Cells(D.Row, 3).Value 'Aus Spalte C
PRODGRP_BEZ = .Cells(D.Row, 4).Value 'Aus Spalte D
Produktbezeichnung = .Cells(D.Row, 5).Value ' Aus Spalte E
Else
ProdGr_Nr = ""
PRODGRP_BEZ = ""
Produktbezeichnung = ""
End If
End With
msgbox ("Produktgruppennummer: " & ProdGr_Nr & vbCrLf & "Produktgruppenbezeichnung: " _
& PRODGRP_BEZ & vbCrLf & "Produktbezeichnung: " & Produktbezeichnung)
End Sub

Dateiname mit Datum und fotlaufender Nummerierung

Forumthread: Dateiname mit Datum und fotlaufender Nummerierung

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Dateiname mit Datum und fotlaufender Nummerierung

Forumthread: Dateiname mit Datum und fotlaufender Nummerierung

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread