Public Sub CopyPasteSave()
Application.DisplayAlerts = False
ActiveSheet.Move
With ActiveSheet.UsedRange
.Value = .Value
End With
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 = "c:\Temp\"
StrFileName = "Dateiname " & StrDate & ".csv"
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
End If
End If
ActiveWorkbook.SaveAs Filename:=dname, FileFormat:=xlCSV
ActiveWorkbook.Close
End Sub