Manche Pro­gramme ver­lan­gen für den Import von Dat­en, dass die einzel­nen Spalten/Zeilen nicht nur durch ein definiertes Trennze­ichen (beispiel­sweise Semi­kolon oder Kom­ma) getren­nt sind, son­dern es muss auch jed­er einzelne Zelle in Anführungsze­ichen (Gänse­füßchen, ") einge­fasst wer­den. Excel an sich bietet solch eine Möglichkeit nicht an. In diesen Fällen muss ein Makro, eine VBA-Rou­tine die Arbeit für Sie erledi­gen. Der nach­fol­gende Code erfüllt diesen Zweck:

Option Explicit

Sub csv_mit_Anfuehrungszeichen()
   Dim wks As WorkSheet, Ze As Long, Sp As Long, ZeTmp As String
   Dim lCol As Long, lRow As Long, Frf As Long
   Const csvExport = "C:\Test\csvExportSpezial.csv"   'Anpassen
   Const Trenner As String = ";"    'Trenner für Spalten, kann angepasst werden
   Const Anf As String = """"
   
   Frf = FreeFile
   Set wks = ThisWorkbook.Worksheets("Tabelle1")  'Anpassen: Register-Name
   lCol = wks.Cells(1, Columns.Count).End(xlToLeft).Column
   lRow = wks.Cells(Rows.Count, 1).End(xlUp).Row
   
   Open csvExport For Output As #Frf
   For Ze = 1 To lRow
       For Sp = 1 To lCol
           ZeTmp = ZeTmp & Anf & CStr(wks.Cells(Ze, Sp).Text) & Anf & Trenner
       Next Sp
       ZeTmp = Left(ZeTmp, Len(ZeTmp) - 1)   'Letztes Trennzeichen löschen
       Print #Frf, ZeTmp
       ZeTmp = ""
   Next Ze
   Close #Frf
End Sub

Beacht­en Sie bitte, dass sie an ver­schiede­nen Stellen den Code ihren Gegeben­heit­en anpassen müssen. Dieses ist ins­beson­dere das Zielverze­ich­nis (es muss vorhan­den sein, son­st gibt es eine Fehler­mel­dung), der Name des Arbeits­blatts (Reg­is­ter) und eventuell auch das Trennze­ichen.

▲ nach oben …

Hat Ihnen der Beitrag gefallen?
Erleichtert dieser Beitrag Ihre Arbeit?

Dann würde ich mich über einen Beitrag Ihrer­seits z.B. 1,00 € freuen … (← Klick mich!)