Lasse ich Columns(1) ganz weg, dann läuft es durch. Einer ne Idee?
Sub CSVSpeichern()
Worksheets("CSV").Unprotect Password:="xy"
Dim s As String, wbCopy As Workbook, varLink As Variant
Worksheets("csv").Copy
s = "C:\Test\test " & Format(Now, "yyyy_mm_dd_hhmmss")
Set wbCopy = ActiveWorkbook
With wbCopy
.SaveAs Filename:=s, FileFormat:=xlExcel8
For Each varLink In .LinkSources(Type:=xlExcelLinks)
.BreakLink Name:=varLink, Type:=xlExcelLinks
Next
Columns(1).Insert
With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IF(RC[1]="""",true,Row())"
.Formula = .Value
.CurrentRegion.Sort key1:=Cells(1, 1), Order1:=xlAscending, header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Columns(1).Delete
.Close savechanges:=True
End With
Set wbCopy = Nothing
varLink = Null
Worksheets("CSV").Protect Password:="xy"
End Sub