Hallo Korni
Hatte mal dasselbe Problem und bin dann im Internet auf eine Lösung gestossen. Hier nun das Makro wie es bei mir momentan im Einsatz ist. Entspricht nicht 1:1 der Lösung von Nils Kaczenski, obwohl ich sein Kommentar dringelassen habe!
'ORIGINAL MAKRO
Sub SaveCSV()
' Speichert den Inhalt eines Arbeitsblatts als CSV-Datei
' mit wählbarem Trennzeichen und Maskierung von Einträgen
' von
Nils@Kaczenski.de, 30.1.2003
' Ohne Gewähr!
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
strDateiname = Range("A28").Value
Range("A28").Activate
ActiveCell.Value = ""
strTrennzeichen = ";"
Set Bereich = ActiveSheet.UsedRange
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
End Sub
Gruess pfuschi
