VBA Daten in CSV konvertieren

Hallo liebe Community,
ich bin neu im Bereich VBA und versuche nun per Skript daten aus einer Tabelle in eine CSV Tabelle zu bekommen, und musste nun feststellen das ich daran gescheitert bin, ich habe anfangs mit dem Beispiel gearbeitet in dem der PRINT Befehl verwendet wurde.
For i = 1 To lngZeile
Print #1, Cells(i, 1).Value & ";" & Cells(i, 2).Value & ";" & Cells(i, 3).Value
Next i
Diese Lösung hat mir auch sehr gut gefallen und hat auch gut funktioniert, das Problem ist nur das mein Export 200 Zeilen und bis zu 500 Spalten lang ist.
Nach vielen versuchen (Kopieren bzw aufzeichnen), und durchstöbern des Forums, seh ich mich jetzt nicht mehr heraus. Mein Problem ist das beim ersten Ansatz alles perfekt geklappt hat, aber jetzt beim kopieren nach dem schließen in der Datei plötzlich KEINE Semilkon Trennung mehr ist sondern Komma.
Habt ihr einen Tipp für mich wie ich das Problem lösen könnte?
Für eure Hilfe jetzt schon mal ein herzliches Dankeschön..
Lg Michael

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
hab vor langer Zeit mal sowas programmiert, vielleicht hilft dir das:

'*********************************************************************************************** _
'  Autor: Worti                                                                                * _
'  Datum 23.05.2007                                                                            * _
'  Aufgabe: Exportiere vorgegebenen Bereich als CSV-Datei mit vorgebbarem Trennzeichen         * _
'*********************************************************************************************** _
Sub Exportiere_Bereich_in_CSV()
Dim bisZeile As Long, zeile As Long
Dim bisSpalte As Integer, Spalte As Integer
Dim Trennzeichen As String, ExportBereich As String, Ausgabe As String
Dim NewFileName
Close #1
NewFileName = Application.GetSaveAsFilename(fileFilter:="CSV Files (*.csv), *.csv")
If NewFileName  False Then
Open NewFileName For Output As #1
' Hier Trennzeichen eingeben
Trennzeichen = InputBox("Bitte geben Sie das gewünschte Trennzeichen ein: ", " _
Trennzeichen", ";")
If Trennzeichen = "" Then
'Standard-Trennzeichen Semikolon
Trennzeichen = ";"
End If
'Zu exportierender Bereich
ExportBereich = InputBox("Bitte den zu exportierenden bereich eingeben: ", "Bereich",  _
ActiveSheet.UsedRange.Address(False, False))
If ExportBereich = "" Then
'Wenn leer, dann benutzten Bereich exportieren
ExportBereich = ActiveSheet.UsedRange.Address
End If
bisZeile = ActiveSheet.Range(ExportBereich).Rows.Count + ActiveSheet.Range(ExportBereich) _
.Row - 1
bisSpalte = ActiveSheet.Range(ExportBereich).Columns.Count + ActiveSheet.Range( _
ExportBereich).Column - 1
For zeile = ActiveSheet.Range(ExportBereich).Row To bisZeile
Ausgabe = ""
For Spalte = ActiveSheet.Range(ExportBereich).Column To bisSpalte
Ausgabe = Ausgabe & ActiveSheet.Cells(zeile, Spalte).Value
If Spalte  bisSpalte Then
Ausgabe = Ausgabe & Trennzeichen
End If
Next Spalte
Print #1, Ausgabe
Next zeile
Close #1
End If
End Sub

Gruß Worti

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Daten in CSV konvertieren

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread