Thema Datum  Von Nutzer Rating
Antwort
16.12.2020 16:21:39 Olaf
Solved
Blau Datei als csv speichern
 17.12.2020 09:39:11 UweD
NotSolved
17.12.2020 09:54:21 UweD
NotSolved
17.12.2020 10:23:32 Gast33528
NotSolved
17.12.2020 10:37:17 UweD
NotSolved
17.12.2020 11:14:28 Olaf
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
17.12.2020 09:39:11		 Views:
502		 Rating:
     
Antwort:
  Ja
Thema:
Datei als csv speichern

Hallo

 

das ganze kann soweit gekürzt werden.

Public Sub CopyPasteSave()
    
    
    'keine Nachrichten anzeigen
    Application.DisplayAlerts = False
    
    ActiveSheet.Move
    With ActiveSheet.UsedRange ' das Verschobene
        .Value = .Value 'Formeln in Werte
    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

 

LG UweD

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.12.2020 16:21:39 Olaf
Solved
Blau Datei als csv speichern
 17.12.2020 09:39:11 UweD
NotSolved
17.12.2020 09:54:21 UweD
NotSolved
17.12.2020 10:23:32 Gast33528
NotSolved
17.12.2020 10:37:17 UweD
NotSolved
17.12.2020 11:14:28 Olaf
NotSolved