Thema Datum  Von Nutzer Rating
Antwort
Rot Vor dem Speichern prüfen ob Dateiname bereits vorhanden
 30.12.2014 15:44:17 Christian
NotSolved
30.12.2014 18:12:03 Gast38826
Solved
31.12.2014 12:54:35 Christian
NotSolved
31.12.2014 08:17:24 Gast67943
*****
NotSolved

Ansicht des Beitrags:
Von:
Christian		 Datum:
30.12.2014 15:44:17		 Views:
1992		 Rating:
     
Antwort:
  Ja
Thema:
Vor dem Speichern prüfen ob Dateiname bereits vorhanden

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Vor dem Speichern prüfen ob Dateiname bereits vorhanden
 30.12.2014 15:44:17 Christian
NotSolved
30.12.2014 18:12:03 Gast38826
Solved
31.12.2014 12:54:35 Christian
NotSolved
31.12.2014 08:17:24 Gast67943
*****
NotSolved