/*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!

Orga hängt sich auf: Probleme beim Einlesen eGK (elektronischen Gesundheitskarten)

Praxen meldeten zuletzt vermehrte Probleme beim Einstecken neuerer elektronischer Gesundheitskarten in das E-Health-Kartenterminal. Statische Auf- und Entladungen der Karte führten zu Abstürzen und Neustarts des Kartenterminals, des Konnektors oder der gesamten Praxis-IT. Nun hat der Hersteller der betroffenen Kartenterminals eine technische Lösung angekündigt.

BSI warnt vor der Nutzung von Kaspersky Antivirus

In der Veröffentlichung vom 15.03.2022 https://www.bsi.bund.de/DE/Service-Navi/Presse/Pressemitteilungen/Presse2022/220315_Kaspersky-Warnung.html warnt das BSI vor der Nutzung von Kaspersky Produkten. Das BSI empfiehlt, Anwendungen aus dem Portfolio von...

2022 neue IT Sicherheitsanforderungen für Praxis

Quelle: https://www.kbv.de/html/it-sicherheit.php IT Sicherheitsanforderungen an alle Praxen In der Praxis werden aktuelle Virenschutzprogramme eingesetzt (Anlage 1 Nummer 15). Der Internet-Browser ist so eingestellt, dass in dem Browser keine vertraulichen Daten...

DATA-AL Systemvoraussetzungen

Hier finden Sie die von uns empfohlenen Anforderungen / Systemvoraussetzungen für die optimale Funktion Ihres Data-AL Systems

IT-Sicherheitsrichtlinie und TI Sicherheitsmaßnahmen der Kassenärztliche Bundesvereinigung

Kassenärztliche Bundesvereinigung IT-Systeme und sensible Daten in den Praxen noch besser schützen: Das ist eines der Ziele der IT-Sicherheitsrichtlinie.

Cloud Backup so wie man es sich schon immer gewünscht hat

Es kommt auf die schnelle und zuverlässige Wiederherstellung an, nicht auf das Backup.

AZURE Server Migration in die Cloud

Microsoft AZURE Migration Mit Netzleiter die lokale Server-Infrastruktur von OnPremise in die AZURE Cloud verschieben und Anfangsinvestitionen und Energie- und Wartungskosten sparen.

VBA-Skript zum nachträglichen Anpassen der Kontaktformulare in Outlook

Ok, ich gebe zu, es ist ein sehr spezielles Problem, aber wenn man davor steht und keine Lösung hat, dann nervt es. Die Anpassung der Kontaktformular hat keine Auswirkung auf bereits vorhandenen Kontakte. Mit Hilfe dieses Skripts kann man das nachträglich anwenden....

DATA-AL medizinische Zielgruppen

Unsere Zielgruppen Mit Data-AL bieten wir eine Software, die für fast alle Fachärzte geeignet ist. Das liegt vor allem daran, dass wir individuell auf die Bedürfnisse jedes einzelnen Arztes eingehen und ihm die passende Lösung bieten können. Insbesondere eignet sich...

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...

Fernwartungstools:

Kunden-Modul pcvisit Support 15.0 starten

Sonstige Fernwartungstools:

Sonstige Fernwartungstools