Feld Zeit nach csv export nicht mehr zu gebrauchen

Sub AufCAblegen()
Dim A                         As Variant
Dim B()                       As String
Dim D()                       As String
Dim z                         As Long
Dim s                         As Byte
Dim r                         As Long
Dim C                         As Byte
Const Path                    As String = "C:\Test\"
Const Filename                As String = "Test"
Const Extension               As String = ".csv"
Const Separator               As String = "|"
Const Wrapper                 As String = """"
'Here you can define your own Range, too
A = Sheets("Test").UsedRange
If Not IsEmpty(A) Then
z = UBound(A, 1)
s = UBound(A, 2)
ReDim D(z - 1)
For r = 1 To z
ReDim B(s - 1)
For C = 1 To s
If InStr(1, A(r, C), Separator) > 0 Then
'Rows whith cells including the Separator
'put in Wrapper
B(C - 1) = Wrapper & A(r, C) & Wrapper
Else
B(C - 1) = A(r, C)
End If
Next C
D(r - 1) = Join(B(), Separator)
Next r
Open Path & Filename & Extension For Output As #1
Print #1, Join(D(), vbCrLf)
Close #1
End If
End Sub