Ich hoffe es kann mir jemandem weiterhelfen.
Ich habe eine Excel Tabelle der ich als CSV exportieren will. dafür brauche Ich Einführungszeichen bei manche Spalten.
Das folgende Macro fügt ein einführungszeichen zu alle Tabellezellen. (34 Spalten).
Ich möchte aber gerne die Spalten C;D;E;F;G ohne Einführungszeichen bekommen. Die andere Spalten mussen eine Einführugszeichen haben.
Macro finden Sie Unten.
Ich hoffe dass jemandem mir helfen wird.
Danke schön und Liebe Grüße.
------------------
Sub CSVFile()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant
FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
ListSep = Application.International(xlListSeparator)
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = ActiveSheet.UsedRange
End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = ìî
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End Sub