06.02.2020, 16:00
Hallo zusammen,
ich habe das unten stehende Makro das auch wunderbar funktioniert:
Jetzt brauche ich eigentlich "nur" noch, dass mir das Makro die .csv Datei nicht als ANSI (momentan so) abspeichert, sondern im UTF-8 Format abspeichert.
Könnt ihr mir dabei helfen das obere Makro dahingehend zu optimieren?
ich habe das unten stehende Makro das auch wunderbar funktioniert:
Code:
Sub mtrXportCSV()
Dim rngBereich As Range
Dim rngZeile As Range
Dim rngZelle As Range
Dim strTemp As String
Dim strDateiname As String
Dim lenString As Long
Const strPfad As String = "XXXX"
Const strErweiterung As String = ".csv"
Const strTrennzeichen As String = ";"
strDateiname = "Import"
Set rngBereich = ActiveSheet.Range("A1:B40")
Open strPfad & strDateiname & strErweiterung For Output As #1
For Each rngZeile In rngBereich.Rows
For Each rngZelle In rngZeile.Cells
If IsEmpty(rngZelle) Then
Exit For
End If
If InStr(1, rngZelle.Text, ";") > 0 Then
'Zellen, die ein Semikolon beinhalten in Anführungsstriche setzen
'strTemp = strTemp & """" & CStr(rngZelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(rngZelle.Text) & strTrennzeichen
End If
Next
If Len(strTemp) > 0 Then
strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
End If
strTemp = ""
Next
Close #1
Set rngBereich = Nothing
MsgBox "Export fertig"
End Sub
Jetzt brauche ich eigentlich "nur" noch, dass mir das Makro die .csv Datei nicht als ANSI (momentan so) abspeichert, sondern im UTF-8 Format abspeichert.
Könnt ihr mir dabei helfen das obere Makro dahingehend zu optimieren?