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!