Export als CSV-Datei
kirsche
ich möchte aus einem tabellenblatt eine csv-datei erzeugen.
in der recherche habe ich folgenden code gefunden und angepasst. dieser funktioniert auch super für mein vorhaben.
leider werde hierbei die umlaute zu unlesbaren zeichen umgewandelt.
wie und wo muß ich den code verändern, damit das Ä auch ein Ä bleibt?
Sub prcCreateCSV()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Const strPre As String = ";"
Reset
intFileNumber = FreeFile
Application.ScreenUpdating = False
Sheets("Datenstamm").Visible = True
Sheets("Datenstamm").Select
With ThisWorkbook
.Save
Open .Path & "\" & ("VersandProduktpass") & _
".csv" For Output As #intFileNumber
End With
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose( _
WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
Sheets("Datenstamm").Visible = xlVeryHidden
Sheets("Start").Select
Application.ScreenUpdating = True
End Sub