Sub TabellenAlsDateienSpeichern()
Dim strPfad As String
Dim sBearbeiter As String
Const ORDNER = "C:\Tabellen\"
sBearbeiter = "Klaus"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPfad = ORDNER
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad
End If
ThisWorkbook.Worksheets("Uebersicht").Copy
ActiveWorkbook.SaveAs (strPfad & sBearbeiter & "_" & Format(Now, "DD_MM_YYYY_hh_mm_ss"))
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub