Excel Makro zum Export als CSV
Quelle: http://www.lexa-it.de/2013/03/ein-kleines-excel-makro-fuer-den-csv-export-code-tipp/ Sub ExportCSV() Dim Bereich As Object, Zeile As Object, Zelle As Object Dim strTemp As String Dim strDateiname As String Dim strTrennzeichen As String Dim strMappenpfad As String Dim blnAnfuehrungszeichen As Boolean strMappenpfad = ActiveWorkbook.FullName strDateiname = InputBox(„Bitte den Namen der CSV-Datei angeben.“, „CSV-Export“, strMappenpfad) If strDateiname = „“ Then Exit Sub strTrennzeichen = InputBox(„Welches Trennzeichen soll verwendet werden?“, „CSV-Export“, „,“) If strTrennzeichen = „“ Then Exit Sub If MsgBox(„Sollen die Werte in Anführungszeichen exportiert werden?“, vbQuestion + vbYesNo, „CSV-Export“) = vbYes Then blnAnfuehrungszeichen = True Else blnAnfuehrungszeichen = False End If Set Bereich = ActiveSheet.UsedRange Open strDateiname For Output As #1 For Each Zeile In Bereich.Rows For Each Zelle In Zeile.Cells If blnAnfuehrungszeichen = True Then strTemp …