2. April 2018
Office & Co.
Keine Kommentare

Excel: Einzelne Werte/Zellen als CSV exporieren

Einen oder mehrere Werten in Zellen können in Excel über Makros exportiert werden. Der Code zeigt ein Makro das den Wert der Zellen A1, A2, B1 und B2 in eine CSV-Datei exportiert. Es werden nur die grundlegende Funktionen gezeigt – eine explizite Fehlerbehandlung ist nicht vorhanden. Die CSV-Datei wird überschrieben.

Excel zu CSV-Export

Sub ExportCSV()

    Dim strDateiname As String
    strDateiname = "C:\Users\YourName\Desktop\Export.csv"
    
    Dim strA1, strA2, strB1, strB2 As String
    
    ' Cells(1, 2) --> 1 = Zeile; 2 = Spalte
    strA1 = Worksheets("Tabelle1").Cells(1, 1).Value
    strA2 = Worksheets("Tabelle1").Cells(2, 1).Value
    strB1 = Worksheets("Tabelle1").Cells(1, 2).Value
    strB2 = Worksheets("Tabelle1").Cells(2, 2).Value	
    
    Open strDateiname For Output As #1
 
    Print #1, strA1 & "," & strB1 
    Print #1, strA2 & "," & strB2
   
    Close #1
    
    MsgBox "Fertig! Gespeichert unter: " & strDateiname

End Sub

Weitere Infos: