Sub Speichern_Klicken()
Dim str_Groesse, str_Auftrags_Nr, str_Material_Nr As String
Dim strCheck As String
Dim Ablageverzeichnis As String
Dim Dateiname_adhoc As String
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Dim lngZeile As Long
Dim Antwort, Meldung, Stil, Titel
Dim oldAEE As Boolean
str_Groesse = Sheets("Messung").Range("Kopf_Groesse").Value
str_Auftrags_Nr = Sheets("Messung").Range("Kopf_Auftrag").Value
str_Material_Nr = Sheets("Messung").Range("Kopf_Material").Value
Ablageverzeichnis = "F:\test"
Dateiname_adhoc = Ablageverzeichnis & "\" & str_Groesse & "_" & str_Auftrags_Nr & "_" & str_Material_Nr & ".xlsx"
If Dir(Dateiname_adhoc) = "" Then
MsgBox "Die Datei existiert noch nicht und muss gespeichert werden"
Else:
MsgBox "Datei bereits gespeichert - Excel wird geschlossen"
ActiveWorkbook.Close False
End If