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
|