Sub speichern()
Worksheets("Verbrauchsrechnung").Activate
Dim var_Speichere As Variant
Dim str_FileName As String
str_FileName = "Garten_" & Range("F12") & Range("G8") & "_" & Range("H13") & "_" & Range("C7") & ".pdf"
var_Speichere = Application.GetSaveAsFilename( _
InitialFileName:=str_FileName, _
FileFilter:="PDF (*.pdf), *.pdf", _
Title:="Datei speichern unter...")
If var_Speichere = False Then Exit Sub
ActiveWorkbook.SaveAs "Garten_" & Range("F12") & Range("G8") & "_" & Range("H13") & "_" & Range("C7") & ".pdf"
End Sub