Hallo zusammen,

ich nutze bereits nachfolgendes Makro und möchte es gerne ändern, sodass die Datei als csv gespeichert wird. Kann mir hierbei jemand helfen?

Public Sub CopyPasteSave()
    Dim SourceSheet As Worksheet
    Dim ActWB As Workbook
    
    Set SourceSheet = ActiveWorkbook.ActiveSheet
    
    'keine Nachrichten anzeigen
    Application.DisplayAlerts = False
    
    'neues hinzufügen und
    'löschen der überflüssigen sheets
    Set ActWB = Workbooks.Add
    Sheets(Sheets.Count).Select
    ActiveWindow.SelectedSheets.Delete
    Sheets(Sheets.Count).Select
    ActiveWindow.SelectedSheets.Delete

    ActWB.ActiveSheet.Name = SourceSheet.Name
    
    SourceSheet.Activate
    SourceSheet.Cells.Select
    Selection.Copy
    
    Windows(ActWB.Name).Activate
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        
    SaveSheet (Format(ActiveSheet.Range("A9"), "yyyy-mm-dd"))
    Application.DisplayAlerts = True
End Sub


Private Sub SaveSheet(StrDate As String)
    Dim StrFileName As String
    Dim StrPath As String
    Dim dname As String

   StrPath = "Dateipfad"
   StrFileName = "Dateiname" & StrDate & ".xlsx"
   
   

   
   dname = StrPath & StrFileName
   If dname = "" Then Exit Sub
   If Dir(dname) <> "" Then
      Beep
      If MsgBox("Existiert schon, überschreiben?", _
         vbCritical + vbYesNo) = vbNo Then
         Application.GetSaveAsFilename dname
      Else
        ActiveWorkbook.SaveAs dname
        ActiveWorkbook.Close
      End If
   Else
        ActiveWorkbook.SaveAs dname
        ActiveWorkbook.Close
   End If
End Sub