Werte aus Spalte als .csv speichern?

[Jackson0]

Hallo,

ich habe eine Tabelle in der Zahlen in mehreren Spalten stehen. Ich möchte jetzt nur die Werte einer bestimmten Spalte (durch Semikolon getrennt) als .csv gespeichert haben. 

Wie geht das?

Gruß
Jackson

[RPP63]

Moin!
Benutze die richtige Methode:
https://msdn.microsoft.com/de-de/vba/exc...xcel?f=255&MSPPError=-2147217396

[Jackson0]

Ich bin noch Anfänger, ka wie ich mit dem Befehl machen soll!?

[00202]

Hallo, :19:

Pfad- Dateiname und den Tabellenblattnamen anpassen (das ist jetzt für Spalte A): :21:

Code:

Option Explicit
Public Sub Main_A()
    Open "C:\Temp\SpalteA.csv" For Output As #1 ' Anpassen!!!
    With ThisWorkbook.Worksheets("Tabelle2") ' Anpassen!!!
        Print #1, Join(WorksheetFunction.Transpose(.Range(.Cells(1, 1), _
            .Cells(Rows.Count, 1).End(xlUp))), ";")
    End With
    Close #1
End Sub

Und bevor die Nachfrage kommt - wie man das auf eine andere Spalte umstellt (hier für Spalte C und Spalte E): :21:

Code:

Public Sub Main_C()
    Open "C:\Temp\SpalteC.csv" For Output As #1 ' Anpassen!!!
    With ThisWorkbook.Worksheets("Tabelle2") ' Anpassen!!!
        Print #1, Join(WorksheetFunction.Transpose(.Range(.Cells(1, 3), _
            .Cells(Rows.Count, 3).End(xlUp))), ";")
    End With
    Close #1
End Sub
Public Sub Main_E()
    Open "C:\Temp\SpalteE.csv" For Output As #1 ' Anpassen!!!
    With ThisWorkbook.Worksheets("Tabelle2") ' Anpassen!!!
        Print #1, Join(WorksheetFunction.Transpose(.Range(.Cells(1, 5), _
            .Cells(Rows.Count, 5).End(xlUp))), ";")
    End With
    Close #1
End Sub

[Dieter63]

Hallo , 

eine(1) Spalte trennen ??

ansonsten Spalte(n) Kopieren -> neues Excel -> Speichern als   .CSV   -->  geht auch

[Jackson0]

Hat geklappt, Danke für die Hilfen!