Sorry, mein saublöder Fehler.
Ich habe die Variable TempZeile als Datentyp Long deklariert. Long lässt aber nur Ganzzahlen zu.
Da die Variable aber auch nicht numerirsche Werte enthält, kann nur der Datentyp String oder,
wenn man gar nicht weiß was drin steht, auch Variant verwendet werden.
Der Code muss also so aussehen:
Code:
Sub CSV_Exp()
Dim Exportdatei As String
Dim Trennzeichen As String
Dim Zellbereich As Range
Dim Zeile As Object
Dim Zelle As Object
Dim TempZeile As String
Exportdatei = ThisWorkbook.Path & "\Shop.csv"
Trennzeichen = "|"
Set Zellbereich = Sheets("Tabelle1").UsedRange
Open Exportdatei For Output As #1
For Each Zeile In Zellbereich.Rows
For Each Zelle In Zeile.Cells
TempZeile = TempZeile & Zelle & Trennzeichen
Next Zelle
Print #1, Left(TempZeile, Len(TempZeile) - 1)
TempZeile = ""
Next Zeile
Close #1
End Sub
Nun solltest du aber Erfolgserlebnisse haben