Thema Datum  Von Nutzer Rating
Antwort
Rot CSV-Import
11.11.2021 09:11:21 Andy
NotSolved
11.11.2021 11:09:18 Der Steuerfuzzi
NotSolved
11.11.2021 11:10:41 Der Steuerfuzzi
NotSolved
11.11.2021 11:13:04 Gast59801
NotSolved
11.11.2021 12:12:59 Der Steuerfuzzi
NotSolved
12.11.2021 07:37:59 Gast7409
NotSolved

Ansicht des Beitrags:
Von:
Andy
Datum:
11.11.2021 09:11:21
Views:
79
Rating: Antwort:
  Ja
Thema:
CSV-Import

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

 

 


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
Rot CSV-Import
11.11.2021 09:11:21 Andy
NotSolved
11.11.2021 11:09:18 Der Steuerfuzzi
NotSolved
11.11.2021 11:10:41 Der Steuerfuzzi
NotSolved
11.11.2021 11:13:04 Gast59801
NotSolved
11.11.2021 12:12:59 Der Steuerfuzzi
NotSolved
12.11.2021 07:37:59 Gast7409
NotSolved