CSV Datei im Format Text mit Pipe und Office 2010

Hallo,

ich hoffe mir kann einer weiterhelfen.

CSV Datei im Format Text mit Pipe | und Office 2010

Vor kurzem hat mir dabei ein Kollege geholfen ein Makro einzufügen für das abspeichern einer CSV Datei im Format Textdatei mit Pipe!!!

Jetzt habe ich irgendwie das Makro gelöscht und habe kein Plan wie das wieder hin bekomme!!

Dummerweise hatte ich mir auch keine Kopie von dem Makro angelegt so dass ich auf dieses zurückgreifen könnte und euch nur fragen müsste wie ich das wieder einfüge!

Jetzt brauche ich das Makro neu und die Anleitung wie ich das Einfügen und Speichern muss.

Kann mir dabei einer weiterhelfen?

Kollege ist nicht in Reichweite sonst hätte ich ihn nochmals gebeten.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 150839

Url: https://administrator.de/forum/csv-datei-im-format-text-mit-pipe-und-office-2010-150839.html

Ausgedruckt am: 12.07.2025 um 05:07 Uhr

2 Kommentare

Neuester Kommentar

Hallo liebe Leute,

also nach langen habe ich es hin bekommen ich habe allerdings ein anderes Makro verwenden müssen so das keine Probleme auftauchen!!!

Sub SaveCSV()
    ' Speichert den Inhalt eines Arbeitsblatts als CSV-Datei   
    ' mit wählbarem Trennzeichen und Maskierung von Einträgen   
    ' von christian   
    ' Ohne Gewähr!   
     
    Dim Bereich As Object, Zeile As Object, Zelle As Object
    Dim strTemp As String
    Dim strDateiname As String
    Dim strTrennzeichen As String
    Dim strMappenpfad As String
     
    strMappenpfad = ActiveWorkbook.FullName
    strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")  
     
    strDateiname = InputBox("Wie soll die CSV-Datei heißen (inkl. Pfad)?", "CSV-Export", strMappenpfad)  
    If strDateiname = "" Then Exit Sub  
     
    strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ",")  
    If strTrennzeichen = "" Then Exit Sub  
     
    Set Bereich = ActiveSheet.UsedRange
     
    Open strDateiname For Output As #1
     
    For Each Zeile In Bereich.Rows
        For Each Zelle In Zeile.Cells
            If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
                'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen   
                strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen  
            Else
                strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
            End If
        Next
        If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
        Print #1, strTemp
        strTemp = ""  
    Next
     
    Close #1
    Set Bereich = Nothing
    MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname  
     
End Sub