Registriert seit: 06.08.2018
Version(en): 2016
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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Moin!
Benutze die richtige Methode:
https://msdn.microsoft.com/de-de/vba/exc...xcel?f=255&MSPPError=-2147217396
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 06.08.2018
Version(en): 2016
Ich bin noch Anfänger, ka wie ich mit dem Befehl machen soll!?
Registriert seit: 30.08.2014
Version(en): Office 365 - Beta 32 Bit
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
________
Servus
Case
Registriert seit: 29.01.2018
Version(en): 2013
Hallo ,
eine(1) Spalte trennen ??
ansonsten Spalte(n) Kopieren -> neues Excel -> Speichern als .CSV --> geht auch
Registriert seit: 06.08.2018
Version(en): 2016
Hat geklappt, Danke für die Hilfen!