besteht die Möglichkeit per Makro ein Tabellenblatt (Name = Test1)als CSV im Format UTF8 zu speichern?
Vielen Danke im Voraus.
Viele Grüße
Claus Freiwald
Sub CreateTextFileTest()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f, Content, EndRow As Long, V As String, InitName As String
EndRow = Cells(2, 8).End(xlDown).Row
For i = 2 To EndRow
Content = Content & Cells(i, 8).Value & Chr(13) & Chr(10)
Next i
InitName = "Exportfile.csv"
V = Application.GetSaveAsFilename(InitialFileName:=InitName, Title:="CSV-Datei erzeugen")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(V, ForWriting, TristateTrue)
f.write Content
f.Close
Set fs = Nothing
Set f = Nothing
End Sub