AW: Meine Vermutung war, dass eines der Makros...
21.09.2010 11:43:36
Sebastian
Hier nochmals mein Makro
Sub TeilmeinesMakros
Dim DatNam
DatNam = ActiveWorkbook.Name
Workbooks.Open ("L:\Ordner\Importfilter\ExcelCSVcoverter.xls")
Windows(DatNam).Activate
Sheets(SeqNrTeil1).Select
Sheets(SeqNrTeil1).Move Before:=Workbooks("ExcelCSVcoverter.xls").Sheets(1)
Windows(DatNam).Activate
Sheets(SeqNrTeil2).Select
Sheets(SeqNrTeil2).Move Before:=Workbooks("ExcelCSVcoverter.xls").Sheets(1)
Windows(DatNam).Activate
'Dateien im Converter Speicher
Dim Ort, DFormat
Ort = "L:\Ordner\Importfilter\"
DFormat = ".csv"
Application.DisplayAlerts = False
Windows("ExcelCSVcoverter.xls").Activate
ChDir "L:\Ordner\Importfilter"
Sheets(SeqNrTeil1).Select
Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="nn", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWorkbook.SaveAs Filename:=Ort & SeqNrTeil1 & DFormat, _
FileFormat:=xlCSV, CreateBackup:=False
Sheets(SeqNrTeil2).Select
Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="nn", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWorkbook.SaveAs Filename:=Ort & SeqNrTeil2 & DFormat, _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="L:\Ordner\Importfilter\ExcelCSVcoverter.xls", _
FileFormat:=xlCSV, CreateBackup:=False
Windows(DatNam).Activate
Workbooks("ExcelCSVcoverter.xls").Close
End Sub