Sub snap1()
'
' snap1 Makro
'
Dim DisplayStatusBar As Boolean

DisplayStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("Gesamt").Select
Columns("C:I").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Application.Goto Reference:="R2C6"
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ChDir _
"D:"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Erreichbarkeiten.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Gesamt").Select
Application.Goto Reference:="R2C3"

Application.DisplayAlerts = True
Application.DisplayStatusBar = False
Application.DisplayStatusBar = DisplayStatusBar
Application.ScreenUpdating = True

End Sub

