Dim Exportfile As String
Dim LastRow As Integer
Dim iRow As Integer
Dim iCol As Integer
Dim ExportDatei
Dim Export_TXT As String
Exportfile = "C:\WSWIN\ws_merge.csv"
ExportDatei = FreeFile
LastRow = ActiveSheet.UsedRange.Rows.Count
Open Exportfile For Output As #ExportDatei
For iRow = 1 To LastRow
For iCol = 1 To ActiveSheet.UsedRange.Columns.Count
Export_TXT = Export_TXT & CStr(ActiveSheet.Cells(iRow, iCol).Text) & ","
Next iCol
Export_TXT = Left(Export_TXT, Len(Export_TXT) - 1)
Print #ExportDatei, Export_TXT
Export_TXT = ""
Next iRow
Close #ExportDatei
ActiveWorkbook.Close savechanges:=False
Application.OnTime Now + TimeSerial(0, 5, 0), "PERSONAL.XLSB!envoy"
End Sub