Hallo,
habe folgendes Makro in VBA erstellt:
Sub SpeichernUnterDatum()
'On Error GoTo Fehler
Dim DName As String, Dateiname As String, Pfad As String
'MsgBox "Variablen wurden deklariert "
'Pfad = "M:\2019-01-01 Block 3"
Pfad = Range("AG15")
'MsgBox "Pfad wurde gesetzt als: " & Pfad
DName = Range("AG16")
DName = Replace(DName, "*", "_")
DName = Replace(DName, "**", "_")
DName = Replace(DName, "/", "_")
DName = Replace(DName, ":", "_")
DName = Replace(DName, ".", "_")
'MsgBox "Dateiname wurde gesetzt als: " & DName
Dateiname = Pfad & "\" & DName & ".xlsm"
MsgBox "Dateiname wurde gesetzt als: " & Dateiname
ThisWorkbook.SaveAs fileName:=DName
MsgBox "Datei erfolgreich gespeichert"
' Aufwandstunden_oeffnen Makro
Workbooks.Open fileName:= _
"M:\2019-01-01 Block 3\Aufwandstunden-12011 - 2018.xlsx"
' Windows("COVESTRO Block 3 Formular.xlsm").Activate
Exit Sub
'Fehler:
'MsgBox "Datei wurde nicht gespeichert"
End Sub
Seit einiger Zeit, speichert das Makro nicht mehr im angegebenen Pfad, unter Pfad = Range("AG15"), sondern ausschließlich im Benutzerordner c:\Benutzer\Dokumente. Den Dateinamen holt sich das Makro aus:
DName = Range("AG16"), dort sind einige Daten Verkettet für den Dateinamen.
Es handelt sich hier um eine Excel-Datei (Blanko-Formular) in dem mehrere Anwender schreiben müssen, allerdings nicht gleichzeitig.
Wir brauchen aber die Datei in dem Netzwerklaufwerk, damit jeder nachsehen kann ob da schon was geschrieben wurde oder nicht und um eine PDF zu generieren, damit sie per Adobe-Zertifikat digital signiert wird. Diese PDF-Datei wird dann per Mail versendet und kommt mit noch zwei zusätzliche Signierungen an uns zurück und wir können die geschriebenen Stunden abrechnen.
Achja, wir arbeiten hier alle mit Office 365 in der jeweils aktuellsten Version.
Gruß
habe folgendes Makro in VBA erstellt:
Sub SpeichernUnterDatum()
'On Error GoTo Fehler
Dim DName As String, Dateiname As String, Pfad As String
'MsgBox "Variablen wurden deklariert "
'Pfad = "M:\2019-01-01 Block 3"
Pfad = Range("AG15")
'MsgBox "Pfad wurde gesetzt als: " & Pfad
DName = Range("AG16")
DName = Replace(DName, "*", "_")
DName = Replace(DName, "**", "_")
DName = Replace(DName, "/", "_")
DName = Replace(DName, ":", "_")
DName = Replace(DName, ".", "_")
'MsgBox "Dateiname wurde gesetzt als: " & DName
Dateiname = Pfad & "\" & DName & ".xlsm"
MsgBox "Dateiname wurde gesetzt als: " & Dateiname
ThisWorkbook.SaveAs fileName:=DName
MsgBox "Datei erfolgreich gespeichert"
' Aufwandstunden_oeffnen Makro
Workbooks.Open fileName:= _
"M:\2019-01-01 Block 3\Aufwandstunden-12011 - 2018.xlsx"
' Windows("COVESTRO Block 3 Formular.xlsm").Activate
Exit Sub
'Fehler:
'MsgBox "Datei wurde nicht gespeichert"
End Sub
Seit einiger Zeit, speichert das Makro nicht mehr im angegebenen Pfad, unter Pfad = Range("AG15"), sondern ausschließlich im Benutzerordner c:\Benutzer\Dokumente. Den Dateinamen holt sich das Makro aus:
DName = Range("AG16"), dort sind einige Daten Verkettet für den Dateinamen.
Es handelt sich hier um eine Excel-Datei (Blanko-Formular) in dem mehrere Anwender schreiben müssen, allerdings nicht gleichzeitig.
Wir brauchen aber die Datei in dem Netzwerklaufwerk, damit jeder nachsehen kann ob da schon was geschrieben wurde oder nicht und um eine PDF zu generieren, damit sie per Adobe-Zertifikat digital signiert wird. Diese PDF-Datei wird dann per Mail versendet und kommt mit noch zwei zusätzliche Signierungen an uns zurück und wir können die geschriebenen Stunden abrechnen.
Achja, wir arbeiten hier alle mit Office 365 in der jeweils aktuellsten Version.
Gruß