Attribute VB_Name = "Modul1"
'Konvertierung des aktiven Tabellenblattes als Textdatei
'Trennzeichen kann frei definiert werden
'wenn das Trennzeichen in der Zelle als Inhalt auftritt wird der
'      Zelleninhalt in " " eingeschlossen
' Parameter:
'     Dateiname als Zeichenkette
'     Trennzeichen als Zeichen
'Aufruf Beispiel:
'     Call csv_export("C:\beispiel.txt", ";")
'
'
Sub csv_export(dname As String, sep As String)
    Dim ncol As Double, nrow As Double
    Dim ncolmax As Double, nrowmax As Double
    Dim txt As String
    'Tabellengöße ermitteln
    ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
    nrowmax = ActiveCell.Row
    ncolmax = ActiveCell.Column
    On Error GoTo error
    Close
    Open dname For Output As #1
    On Error GoTo 0
    'Tabellenblattausgabe
    txt = ""
    For nrow = 1 To nrowmax
        For ncol = 1 To ncolmax
            If InStr(1, Cells(nrow, ncol).Value, sep) > 0 Then
                'wenn Seperator in txt, dann in "" einschließen
                txt = txt & """" & Cells(nrow, ncol).Value & """" & sep
            Else
                txt = txt & Cells(nrow, ncol).Value & sep
            End If
        Next ncol
        Print #1, txt
        txt = ""
    Next nrow
    Close #1
    MsgBox "Datei " & dname & " wurde gespeichert"
    End
error:
    MsgBox "Dateinamen überprüfen"
End Sub
'
Sub Beispiel()
   Call csv_export("h:\beispiel.txt", ";")
End Sub