Morgen zusammen,

wie kann ich sicherstellen das bei einem CSV Export einer Tabelle Semikolons nicht als Trennzeichen 

erkannt wird wenn dieser in einer Spalte als Text hinterlegt ist ?

Ich möchte normal exportieren also mit ";" als delimiter aber wenn innerhalb einer Spalte eins ist dann trennt er da zusätzlich was nicht gewollt ist. 

Gibt es eine Möglichkeit diese zu ignorieren ?

Sub CSV_Export()
    Dim exportfile As String: exportfile = "E:\test.csv"
    Dim Dateinummer As Long: Dateinummer = FreeFile
    
    Dim z As Long
    Dim i As Long
    Dim strOut As Variant
    
    With Sheets("TEST")
            
        Open exportfile For Output As #Dateinummer
        
        For z = 1 To 10
            
            strOut = ""
            
            For i = 1 To 3
                strOut = strOut & CStr(.Cells(z, i)) & ";"
            Next i
        
            strOut = Left(strOut, Len(strOut) - 1)
            
            Print #Dateinummer, strOut

        Next z
        Close #Dateinummer 
    End With

End Sub