Private Sub CommandButton13_Click()
CommandButton13.Visible = False
CommandButton14.Visible = False
Dim DateiName As String
DateiName = "C:\Eigene Dateien\Kassenwartung\C-CHECK\" & "_" & Range("A2")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
CommandButton13.Visible = True
CommandButton14.Visible = True
Dim rng As Range
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row >= 60 And shp.TopLeftCell.Row <= 90 _
And shp.TopLeftCell.Column >= 2 And shp.TopLeftCell.Column <= 29 Then shp.Delete
Next
Range("Q3:S3").Select
ThisWorkbook.Worksheets("C-Check T2").Image5.Picture = LoadPicture("")
ThisWorkbook.Worksheets("C-Check T2").Cells(3, 8).Select
End Sub