Save As *.csv

Wenn ich das per Hand mache (und aufzeiche), funtioniert es auch:

2;0,0052;2002;5;16
3;0,0052;2002;5;16
.....

Wenn ich das Makro dann laufen lasse, kommt aber das dabei raus:

2;0.0052;2002;5;16
3;0.0052;2002;5;16

d.h. als Dezimaltrennzeichen wird der Punkt verwendet.

Hier ist das Makro:

Sub SaveAsTest2CSV()
'
' Macro3 Macro
' Macro recorded 16/05/2002 by Sebastian Schick
'
ActiveWorkbook.SaveAs Filename:="P:\My Documents\LOPS\test2.csv", FileFormat _
:=xlCSV, CreateBackup:=False
End Sub

Kann mir jemand helfen?

Sebastian