Guten Morgen zusammen,
auch heute ergibt sich bei mir ein neues Problem. Über Hilfestellungen und Vorschläge freue ich mich!
Folgene Sub durch betätigen eines Buttons aufgerufen werden und die aktuelle Datei speichern:
Sub Ausgeben()
'Speichern der neuen RKA in Endabrechnung, sowie drucken der RKA&Belege
Dim p_PfadAusgeben As String
Dim p_filenameAusgeben As String
If MsgBox("Reisekostenabrechnung speichern und drucken?", vbYesNo) = vbYes Then
p_PfadAusgeben = "J:\Basti\Montagebericht&Reisekosten\Reisekosten\Endabrechnung"
p_filenameAusgeben = Range("Name2") & "_" & "Endabrechnung" & "_" & Month(Date) & "-" & Year_(Date) & (".xlsm")
p_filenameAusgeben = p_PfadAusgeben & p_filenameAusgeben
ActiveWorkbook.SaveAs (p_filenameAusgeben)
Für mich scheint an diesem Teil der Sub nichts falsch zu sein, jedoch passiert folgendes:
Er speichert nur bis in den Ordner "Reisekosten" und hängt "Endabrechnung" an den Anfang des Dateinamens unter dem gespeichert werden soll.
Vielen Dank!