Makro zum Abspeichern meiner Datei

Hallo,
Ich soll für die Arbeit ein Antragsformular erstellen. Hier werden Informationen zusammengestellt und ausgewertet. Wenn ein Mitarbeiter damit fertig ist soll er eine Schaltfläche betätigen, und das Dokument das er bearbeitet und verändert hat soll in einem Ordner neu abgespeichert werden. Auf diesen Ordner haben dann nur wir Zugriff und können nachvollziehen was welcher Mitarbeiter wann gemacht hat.
Meine Excel Version ist Microsoft Office Professional Plus 2016
Mein bisheriger Ansatz ist:


Sub NeueDatei()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Beispielpfad\Antragsformular"
MsgBox "Datei erfolgreich gespeichert"
End Sub

Problem: Zum einen Speichert es nicht meine Version des Dokuments sondern einfach nur ein leeres Dokument, und des weiteren geht das ja immer nur einmal, weil wenn man das Makro ein zweites mal laufen lässt bereits ein Dokument mit dem Namen Antragsformular existiert.
Ihr seht ich bin nicht sehr Excel erfahren und ich hoffe ich konnte mein Problem einigermaßen verständlich erklären. Falls jemand eine Idee hat oder mir helfen könnte wäre natürlich der Hammer.
Beste Grüße und Gesundheit
Bene

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Name des Bearbeiters+ Datum geht nicht, weil ein Mitarbeiter auch mal mehr als ein Antragsformular pro Tag bearbeitet.
Und wie meinten Sie das mit der Schaltfläche?
das wäre genau mein Plan gewesen: der MA klickt die Schaltfläche an und das Dokument wird in meinem Pfad mit den Aktuellen Ständen und Daten abgespeichert.
Nur leistet mein Code das nicht, sondern Speichert
1. nur ein leeres Dokument und nicht das Aktuelle Antragsformular
2. geht das nur einmal, sobald ein Dokument mit dem Namen "Antragsformular.xlsx im Zielordner hinterlegt ist, Speichert es keine weiteren Versionen ab sondern gibt mir den Laufzeitfehler 1004 raus.
Mit "Wir" meine ich außerdem im wesentlichen meinen Chef: der sollte die abgespeicherten Antragsformulare zum Zeitpunkt der Speicherung konserviert haben und einsehen können um nachzuvollziehen was die MA so treiben ;-)
Vielen Dank schonmal für deine Hilfe
Bene

Sub NeueDatei() UserName = Environ("Username") Datum = Format(Now, "DD.MM.YYYY" & "--" & "HH.MM.SS") Filename = "formularxyz_" & UserName & "_" & Datum & ".xls" MsgBox Filename Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:DEIN PFAD\" & Filename MsgBox "Datei erfolgreich gespeichert" End Sub

Sub SaveBericht() UserName = Environ("Username") ' Benutzernamen holen Datum = Format(Now, "DD.MM.YYYY" & "--" & "HH.MM.SS") ' aktuelles Datum und Uhrzeit holen newfilename = "formularxyz_" & UserName & "_" & Datum & ".xls" ' Dateinamen zusammensetzen 'Debug Messagebox ob der Filename passt - die nächste Zeile kann auskommentiert werden MsgBox Filename Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="C:\Users\dboger\Downloads\" & newfilename & ".xlsm" ActiveWorkbook.Close SaveChanges:=False Application.DisplayAlerts = True MsgBox "Datei erfolgreich gespeichert" ErrorHandler: If Err.Number 0 Then MsgBox "Fehler Nr. " & Err.Number & vbCrLf _ & Err.Description, vbCritical + vbOKOnly, "Das ging schief ..." If ff > 0 Then Close #ff End Sub

Sub SaveBericht() UserName = Environ("Username") ' Benutzernamen holen Datum = Format(Now, "DD.MM.YYYY" & "--" & "HH.MM.SS") ' aktuelles Datum und Uhrzeit holen newfilename = "formularxyz_" & UserName & "_" & Datum & ".xlsm" ' Dateinamen zusammensetzen 'Debug Messagebox ob der Filename passt - die nächste Zeile kann auskommentiert werden MsgBox Filename Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="C:\DEIN PFAD\" & newfilename ActiveWorkbook.Close SaveChanges:=False Application.DisplayAlerts = True MsgBox "Datei erfolgreich gespeichert" ErrorHandler: If Err.Number 0 Then MsgBox "Fehler Nr. " & Err.Number & vbCrLf _ & Err.Description, vbCritical + vbOKOnly, "Das ging schief ..." If ff > 0 Then Close #ff End Sub

Beliebteste Forumthreads (12 Monate)

Makro zum Abspeichern meiner Datei

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro zum Abspeichern meiner Datei

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread