Wie kann ich das verhindern ?
Ein setzen von Local:=true ändert leider nichts ...
Gruß
Jens
Sub Sav_As_PRN_DE()
' Sav_As_PRN Makro
With Application
.DisplayAlerts = False
.UseSystemSeparators = False
.DecimalSeparator = ","
.ThousandsSeparator = "."
End With
ActiveWorkbook.SaveAs Filename:="D:\Test\TestPRN.prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False, Local:=True
ActiveWorkbook.Close
With Application
.UseSystemSeparators = True
.DisplayAlerts = True
End With
End Sub
Columns("C:C").NumberFormat = "dd.mm.yyyy"
Gruß