Hallo hab mal wieder ein kleines Problem, habe einen Button (Beenden) wenn man den klickt soll das blatt als neue Datei in einen bestimten Ordner gespeichert werden. der Filename setzt sich aus dem Aktuellen Datum und dem Handzeichen zusammen das man in eine Textbox schreibt das klappt alles soweit nur wenn man die Frage willst du Speichern mit ja beantwortet das file aber schon vorhanden ist mann dann Abricht oder nicht Speichern klickt gibts einen fehler von wegen zugriff verweigert am besten er würde in dem fall fragen ob er das file übereschreiben soll und bei Nein dann halt nichts tun.
So sieht das imoment aus:
Private Sub cmdBeenden_Click()
Speichern = MsgBox("Soll Die Datei gesichert werden ?", vbYesNo)
If Speichern = vbYes Then
Dim var1 As String
Dim var2 As String
var2 = Hztb.Text
var1 = Date
Pfad = "C:\excel\"
ThisWorkbook.SaveAs Pfad & var1 & "-" & var2 & ".xlsm"
Else
End If
Unload Me
End Sub
Danke KampfyX
|