ich habe in einem Arbeitsblatt ein CommandButton eingefügt und in VBA folgendes hinterlegt:
Private Sub Speichern_Click()
Speichern4
End Sub
Private Sub Speichern4 ()
Dim p_Pfad4 As String
Dim p_filename4 As String
p_Pfad4 = "J:\Basti\Kosten\Reisekosten\Aktuell\"
p_filename4 = Range("Name2") & "_" & "RKA" & "_" & Range("ReiseDatEins") & (".xlsm")
p_filename4 = p_Pfad4 & p_filename4
ActiveWorkbook.SaveAs (p_filename4)
End Sub
Wieso funktioniert das nicht?
Vielen Dank für eure Hilfe und schönen Abend!