DTPicker Werte in Dateiname übergeben
15.11.2021 10:55:30
Dom
Hallo Zusammen,
ich erstelle für ein Reporting monatlich einen Auszug. Die Daten für den Auszug filtere ich
mit den Werten die ich in einem DTPicker einstelle:
Private Sub Filter_Zeitraum_Click()
ActiveSheet.Name = "Gesamt"
'Datum filter
Dim strDateFrom As String, strDateTo As String
strDateFrom = CStr(CLng(DTPicker1.Value))
strDateTo = CStr(CLng(DTPicker2.Value))
Call Worksheets("Gesamt").Rows(1).AutoFilter( _
Field:=8, _
Criteria1:=">=" & strDateFrom, _
Operator:=xlAnd, _
Criteria2:="
Danach Speicher ich die Daten mit dieser Bezeichnung Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" _
& VBA.Format(VBA.Time, "hh-mm-ss") & "_" & " Auszug" ab
Sub Auszug_Abspeicher()
ActiveWorkbook.Worksheets("ReviewAuszug").Copy
' wird Abgespeichert
Application.DisplayAlerts = False
Set wkbMappe = ActiveWorkbook
Set VarPfad = Application.FileDialog(msoFileDialogSaveAs)
With VarPfad
.Title = "Wählen Sie das Verzeichnis zum Speichern aus"
.ButtonName = "Speichern"
.InitialFileName = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" _
& VBA.Format(VBA.Time, "hh-mm-ss") & "_" & " Auszug"
If .Show -1 Then
Exit Sub
End If
strOrdner = .SelectedItems(1)
End With
wkbMappe.SaveAs strOrdner
wkbMappe.Close
Application.DisplayAlerts = True
End Sub
Meine Frage: Gibt es die Möglichkeit in die Bezeichnung des Auszugs das Datum aus dem DTP miteinzufügen ?
15-11-2021_10-08-07_ Auszug.xlsx ---> Werte aus dem DTPicker_Zeit_Auszug.xlsx ?
Viele Grüße und Danke !
Anzeige