ich bräuchte hier einmal Hilfe:
Habe eine Datei die per VBA in einen zuvor erstellten Temp-Ordner gespeichert werden soll.
Sub Dokument_speichern()
ActiveSheet.Unprotect
Dim neuerDateiname As String
neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "Aufklaerungsprotokoll" & Format( _
Date, "dd.mm.yyyy") & ".pdf", "PDF-Dateien (*.pdf),*.pdf")
If Not neuerDateiname = "Falsch" Then
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
1. Ordner (C:\Temp)wird beim öffnen automatisch erstellt, wenn keiner da ist
2. Aufruf zum speichern per Button erfolgt.
3. Gehe in den Ordner und es ist keine Datei vorhanden.
Wo liegt der Fehler?
Würde mich freuen von Euch Hilfe zu bekommen.
LG Torsten