Sub prcDatenExport(Optional wksSource)
Dim vntData, vntTmp(), intFile As Integer
Dim i As Long, j As Long
Const strFile As String = "c:\test\test.csv" 'anpassen
Const strDelim As String = ";"
If IsMissing(wksSource) Then Set wksSource = ActiveSheet
intFile = FreeFile
vntData = wksSource.Range("A1").CurrentRegion
ReDim vntTmp(1 To UBound(vntData, 2))
Open strFile For Output As intFile
For i = 1 To UBound(vntData)
For j = 1 To UBound(vntData, 2)
vntTmp(j) = vntData(i, j)
Next
Print #1, Join(vntTmp, strDelim)
Next i
Close intFile
End Sub
Gruß
Rudi