/*footer search button*/ /*google-site-verification*/

Excel Export mit Anführungszeichen

Sep 28, 2016 | Computer, Office

Excel Zahlen white printing paper with numbers

Excel CSV-Export mit Anführungszeichen

von Gaby Salvisberg 03.01.2012
Quelle: http://www.pctipp.ch/tipps-tricks/kummerkasten/office/artikel/excel-2010-csv-export-mit-anfuehrungszeichen-59568/

Ausgangssituation: Der exportierte Text soll in einer CSV Anführungszeichen beinhalten.

Ich exportiere aus Excel eine Liste ins CSV-Format comma-separated values. Das Zielsystem, auf dem die Liste wieder importiert werden muss, kommt mit dem von Excel erstellten CSV-Format nicht zurecht. Es fehlen die Anführungs- und Schlusszeichen als Feldbegrenzungen (z.B. “Feld”).

Anmerkung: Irgendwie ist es auch der umgekehrte Text-in-Spalten Funktion. Aber egal.

Gibt es einen Weg, die Daten auf diese Weise aus Excel in eine CSV-Datei zu kriegen?

Lösung: Ein kleines Makro programmieren

Mit dem gewöhnlichen Export-Assistenten bzw. «Speichern unter» in Excel geht das nicht. Sie bekommen es aber mit einem Makro hin.

So könnte Ihre Beispiel-Liste in Excel aussehen:

ID Pos ArtNr ME Menge
4711 1 iPhone12 Stk 3
4712 2 iPadPro2021 Stk 2
4713 3 MacBookM1 Stk 4

Was Excel beim CSV-Export normalerweise damit anstellt, ist dies – ohne die Anführungs- und Schlusszeichen, wie Sie richtig feststellen :

ID;Pos;ArtNr;ME;Menge
4711;1;iPhone12;Stk;3
4712;2;iPadPro2021;Stk;2
4713;3;MacBookM1;Stk;4

Alle zufälligen Anführungszeichen aus der Tabelle vorher entfernen

Durchsuchen Sie Ihre Tabelle zuerst nach dem Anführungszeichen (“). Dieses wird später in der CSV-Datei als Feldtrenner eingesetzt. Wenn innerhalb einer Zelle schon jetzt ein solches Zeichen vorkäme (z.B. bei Zoll-Angaben wie «2,5″»), könnte das später beim Import zu Verwirrungen führen. Ersetzen Sie das Zeichen allenfalls durch Text oder eine Zeichenfolge, die Sie nach erfolgtem Export wieder zurück-ersetzen.

Das Makro

Drücken Sie Alt+F11 zum Öffnen des Visual-Basic-Editors oder gehen Sie im Reiter Entwicklertools zu Visual Basic. Falls die Entwicklertools nicht zu sehen sind, blenden Sie sie ein: Es geht über Datei / Optionen / Menüband anpassen, dann haken Sie rechts die «Entwicklertools» an.

Doppelklicken Sie im Visual-Basic-Editor auf Diese Arbeitsmappe und fügen Sie exakt folgenden Makrocode ein, den Sie auch von hier kopieren können:

Sub CSVFile()

  Dim SrcRg As Range 
  Dim CurrRow As Range 
  Dim CurrCell As Range 
  Dim CurrTextStr As String 
  Dim ListSep As String 
  Dim FName As Variant 

  FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv") 
  
  ListSep = Application.International(xlListSeparator) 
    If Selection.Cells.Count > 1 Then 
      Set SrcRg = Selection 
    Else 
      Set SrcRg = ActiveSheet.UsedRange 
    End If 

  Open FName For Output As #1 

  For Each CurrRow In SrcRg.Rows 
    CurrTextStr = ìî 
  For Each CurrCell In CurrRow.Cells 
        CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ListSep 
    Next 
  While Right(CurrTextStr, 1) = ListSep 
    CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1) 
  Wend 
  Print #1, CurrTextStr 
  Next 
Close #1 
End Sub

Gehen Sie zu Datei / Schließen und zurück zu Excel. Drücken Sie Alt+F8 oder gehen Sie via Entwicklertools zu Makros. Jetzt noch auf das «CSVFile»-Makro und auf Ausführen klicken. Excel zeigt einen «Speichern unter»-Dialog an, in dem Sie einen Dateinamen (z.B. «MeineListe.csv») eingeben und einen Speicherort wählen. Die so erstellte CSV-Datei enthält als Feldbegrenzer jetzt die Anführungszeichen.

"ID";"Pos";"ArtNr";"ME";"Menge"
"4711";"1";"iPhone12";"Stk";"3"
"4712";"2";"iPadPro2021";"Stk";"2"
"4713";"3";"MacBookM1";"Stk";"4"

Speichern als .XLSM statt .XLSX

Wenn Sie Ihre ursprüngliche Excel-Datei schließen, müssen Sie sich entscheiden, ob Sie das Makro in dieser Excel-Datei behalten wollen oder nicht. Falls es in der Datei bleiben soll, müssen Sie sie unter dem Dateityp .xlsm statt .xlsx speichern.

(PCtipp-Forum)

 

Bei uns Netzleiter können Sie alle hier aufgeführten Microsoft Produkte kaufen. Sie profitieren von unserem Partnerstatus dadurch, dass Sie die Rabatte des jährlichen Abos erhalten und trotzdem monatlich kündigen können.
Microsoft 365 ist bei uns monatlich kündbar und erfühlen somit unser Ziel alle Abos als monatlich kündbares Abonnement anzubieten.
Netzleiter: flexibel, skalierbar und sicher!

Schreibkonflikt in Access Frontend mit MariaDB / MySQL / MSSQL Backend

Ok, es ist eine Nische. Aber wenn ich mit diesem Beitrag helfen kann, dann freue es mich. Wenn ich darüber hinaus helfen kann, dann nicht zögern, einfach eine Mail schreiben an ma@netzleiter.com Setting: Access Frontend,  MySQL, MariaDB oder MSSQL Server...

Konferenzlösungen von Netzleiter mit Microsoft 365, Microsoft Teams und Surface Hardware

In den heutigen Zeiten ist Vernetzung wichtiger denn je. Bewerbungs-, Kunden- und Lieferantengespräche finden aktuell digital statt. Egal wo auf der Welt. Wir beraten Sie, um eine geeignete Besprechungsinfrastruktur in Ihr Unternehmen zu integrieren. Vom einzelnen...

6 nuetzliche Google Suchtipps um schneller zu finden statt zu suchen

Wie sucht man eigentlich und lernt man das in der Schule?
6 nützliche Google Suchtipps um schneller zu finden statt zu suchen
1.1 Schlichtes design
1.2 Wie sucht man eigentlich und lernt man das in der Schule?
1.3 1. Inklusive und exklusive Suchworte – Plus und Minus vor Keywords
1.4 2. Suche innerhalb von Websites
1.5 3. Begrenzen Sie den Zeitraum
1.6 4. Mein persönlicher FAVORIT: Dateien suchen
1.7 Erweitern Sie Ihre Suche
1.8 Bonus Google Tricks:

Microsoft Surface Laptop 4 – Netzleiter Talk aus Hamburg

Das neue Microsoft Surface Laptop 4 wird kurz besprochen. Mehr Details auf https://surface.netzleiter.net Netzleiter GmbH & Co. KG - IT Systemhaus aus Hamburg ------------------------------------------------------------------------------------------- Ihr EDV...

Exchange Server: Hacker nutzen Schwachstellen für Ransomware “DearCry” 2021

Netzleiter Wartungskunden erhielten außer der Reihe bis spätestens Samstag, 06/03/2021 die Updates eingespielt und per Handarbeit alles überprüft. Möchten Sie auch proaktiv Ihre Server schützen lassen dann rufen Sie uns an. Wir machen mit Ihnen gerne  einen (maximal...

In 5 Schritten: ultraschneller Wechsel der Telefonanlage zu INOPLA

Sie sind genervt 🙄 von Ihrer Telefonanlage, brauchen mehr Funktionen als nur einen AB oder Weiterleitungen. Insbesondere in Zeiten wo das HomeOffice an Bedeutung gewinnt ist es wichtig eine gute infrastrukt zu haben. Moderne, intelligente Telefonanlage mit Netzleiter...

Top 20 der beliebtesten deutschen Passwörter 2020 (HPI)

Hier kommt ein Gruselkabinet für Systemadministratoren. Seit Ausbruch der Pandemie, sind aus dem HomeOffice heraus, neue Angriffsmöglichkeiten entstanden, die vielen Unternehmen zu recht Sorge bereiten. Ein großer Risikofaktor bleibt der viel zu laxe Umgang mit...

Gastbeitrag: 64 Bit Emulation unter Windows on ARM auf dem Surface Pro X

Microsoft hat mit der Windows x64-Emulation eine schwierige Aufgabe bekommen: Die x86-Emulation lief schon sehr ordentlich, aber der Mitbewerber Apple zeigt mit Rosetta 2 eindrucksvoll, wie stark eine Emulation sein kann. Aber wie kann das Microsoft selbst?

Outlook 2016 inkompatibel zu Microsoft 365

Microsoft hat angekündigt, dass ab dem 1. November 2021 der Microsoft 365 E-Mail Dienst mit dem durchaus noch weit verbreiteten Outlook 2016 nicht mehr funktionieren wird. Bei uns Netzleiter können Sie alle hier aufgeführten Microsoft Produkte kaufen. Sie profitieren...

Bye bye Adobe Flash

Adobe stellt seinen Flash Player ein. Das kommt nicht etwa überraschend, sondern steht schon lange fest. Am 31. Dezember 2020 macht Adobe Schluss mit Verteilung und Sicherheitsupdates für den Flash Player. Flash entstand aus der Zeit wo das Internet noch in der...
6 nuetzliche Google Suchtipps um schneller zu finden statt zu suchen

6 nuetzliche Google Suchtipps um schneller zu finden statt zu suchen

Wie sucht man eigentlich und lernt man das in der Schule?
6 nützliche Google Suchtipps um schneller zu finden statt zu suchen
1.1 Schlichtes design
1.2 Wie sucht man eigentlich und lernt man das in der Schule?
1.3 1. Inklusive und exklusive Suchworte – Plus und Minus vor Keywords
1.4 2. Suche innerhalb von Websites
1.5 3. Begrenzen Sie den Zeitraum
1.6 4. Mein persönlicher FAVORIT: Dateien suchen
1.7 Erweitern Sie Ihre Suche
1.8 Bonus Google Tricks:

mehr lesen