Speichern mit Bedingung
05.04.2016 14:43:59
chris58
Ich bitte höflichst um Hilfe.
Ich habe den u.a. Code von hier, von da und ein wenig gebastelt. Er kann folgendes:
Er speichert eine Datei unter einem anderen Namen die aus den Zellen H2 und F2 der Datei kommen, wenn in G2 das Wort "Speichern" eingetragen wird. Die Originaldat ei wird nach Speicherung der neuen Datei geschlossen.
Nun bin ich nach langem probieren draufgekommen, das, wenn der User, der diese Dat ei abspeichert, das ganze abbricht, dann hat er das Wort "Speichern" in der Originaldatei stehen und kann dann die Originaldatei verändern, unter dem Namen der Originaldatei speichern und was sonst noch was.....
Wie kann man den Code dahingehend verändern, das, wenn der User abbricht, das Wort Speichern nicht in der Originaldatei eintragen wird.
Bitte um Hilfe.
Danke
chris
Private Sub CommandButton2_Click()
Dim strVerzeichnis As String
Dim strDateiname As String
Range("G2").Value = "Speichern"
strVerzeichnis = "C:\Temp\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
Format(Range("H2"), "mm") & " " & Range("F2") & ".xls", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Select Case strDateiname
Case False
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strDateiname
End Select
ThisWorkbook.Close True
End Sub