Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

csv-Export per Makro

csv-Export per Makro
03.08.2016 11:27:05
onkelbobby
Hi,
leider kriege ich das mit meinen Makro-Kenntnissen nicht alleine hin!
Ich möchte in einem Tabellenblatt nur die Spalten A und B ab Zeile 2 als csv (getrennt mit ;) per Makro exportieren.
Wer kann mir helfen?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv-Export per Makro
03.08.2016 13:39:39
Rudi
Hallo, 
Sub csvOutput()
Dim s As String, c As Range
For Each c In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
s = s & c & ";" & c.Offset(, 1) & vbCrLf
Next c
Open "c:\test\output.csv" For Output As #1
Print #1, Mid(s, 2)
Close #1
End Sub
Gruß
Rudi
AW: csv-Export per Makro
03.08.2016 14:38:15
baschti007
Ich hätte noch ein anderes Bsp.
Sub csv()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim NeWW As Workbook
Dim zell As Range
Dim i As Long
Dim Wb As Worksheet
Set Wb = ThisWorkbook.ActiveSheet
Set NeWW = Workbooks.Add
i = 1
For Each zell In Wb.Range("A2:A" & Wb.Cells(1048576, 1).End(xlUp).Row)
NeWW.Worksheets(1).Range("A" & i) = zell.Value & ";" & zell.Offset(0, 1).Value
i = i + 1
Next
NeWW.SaveAs "C:\Users\" & Environ("USERNAME") & "\Desktop\Test.csv", FileFormat:=xlCSVMSDOS,  _
CreateBackup:=False
NeWW.Close
Set NeWW = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Gruß Basti
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige