cvs speichern

Sub TbBlatt_als_CSV_speichern()
Dim Bereich As Object   ' Bereich der bearbeitet werden Soll
Dim Zeile As Object     ' Bereich der bearbeitet werden Soll
Dim Zelle As Object     ' Bereich der bearbeitet werden Soll
Dim strTemp As String   ' temporärer Speicher für den ExportString
Dim sSW_Name_Tabelle As String
Dim sSW_Trennzeichen As String
Dim sSW_SpeicherPfad As String
Dim sRM_Datum_Zeit As String
Dim sSW_DateiName As String
Dim strTrennzeichen As String
Dim entity_text As String
sSW_Name_Tabelle = "CSV_Export"
sSW_Trennzeichen = ";"
On Error GoTo Fehlermeldung
' Speichern vom aktuellen Dateipfad
sSW_SpeicherPfad = ActiveWorkbook.Path
' Speichern CompanyName
entity_text = ActiveWorkbook.Sheets("Sheet10").Range("c1").Value
' Speichern vom Zeitstempel, Teil vom Dateinamen der CSV-Export-Datei
sRM_Datum_Zeit = Format(Now, "YYYY-MM-DD - HH-MM-SS")
' Zusammensetzen vom Dateinamen
sSW_DateiName = sSW_SpeicherPfad & "" & entity_text & "" & sSW_Name_Tabelle & " - " & sRM_Datum_Zeit & ".csv"
' Tabelle "CSV_Export" selektieren - ActiveSheet
tab_upload.Select
' Exportbereich setzen
Set Bereich = tab_upload.UsedRange
' Daten aus der Quelldatei auslesen und in die externe Datei schreiben
Open sSW_DateiName For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & CStr(Zelle.Text) & sSW_Trennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
' externe Datei (CSV) schliessen und Arbeitsbereich löschen
Close #1
Set Bereich = Nothing
GoTo Fertigmeldung
Fehlermeldung:
'Fehlermeldung anzeigen
If Err Then MsgBox "Datei wurde nicht gespeichert"
GoTo Ende
Fertigmeldung:
'Fertigstellungsmeldung anzeigen
MsgBox "Export erfolgreich. Datei wurde exportiert nach " & sSW_SpeicherPfad & sSW_DateiName
Ende:
End Sub