Sub TabellenAlsDateienSpeichern()
Dim strPfad As String
Const JAHR = "MeinPfad\Testordner Makros\2022\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPfad = JAHR
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad
End If
ThisWorkbook.Worksheets("Test1").copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=(strPfad & Environ("Username") & "_" & Format(Now, "DD_MM_YYYY_hh_mm_ss"))
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub