Hallo Leute,

kann mir jemand bei folgendem Code helfen:  Ich möchte gerne das der Dateiname vor dem Speichern abgefragt wird und wenn bereits vorhanden,

soll Excel ohne zu speichern und ohne weitere Abfrage geschlossen werden!

hier mein derzeitigen Code ..... wo leider nicht so funktioniert wie ich gerne möchte! :-(((

Sub Speichern_Klicken()


'Variablen deklarieren
    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

'Variablen für Dateiname festlegen
    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