Semikolon hinter jeder Datenzeile

Sub SaveCSV()
Dim Bereich         As Object
Dim Zeile           As Object
Dim Zelle           As Object
Dim strTemp         As String
Const Pfad          As String = "S:\Vertrieb\Pulver\Kalkulation\Import\"
Const Dateiname     As String = "Ausgabe"
Const Extension     As String = ".CSV"
Const Trennzeichen  As String = ";"
Const Kapselzeichen As String = """"
'Hier kann auch ein eigener Range angegeben werden
'Set Bereich = ActiveSheet.Range("A1:B5")
Set Bereich = ActiveSheet.UsedRange
Open Pfad & Dateiname & Extension For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, Trennzeichen) > 0 Then   '
'Zellen, die ein Trennzeichen beinhalten in Kapselzeichen setzen
strTemp = strTemp & Kapselzeichen & CStr(Zelle.Text) & _
Kapselzeichen & Trennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
End If
Next
strTemp = Left(strTemp, Len(strTemp) - 1)    '
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
End Sub