Ich habe eine Tabelle wo Werte ausgelesen werden und falls es keine gibt, bleibt das Feld leer.
=WENN(yyy!E3="";"";yyy!E3*1000)
Danach kopiere ich das Register in eine neue Exceldatei und exportiere sie.
ThisWorkbook.Sheets("xxx").Copy
ActiveWorkbook.Sheets(1).SaveAs Filename:= _
ThisWorkbook.Path & "\name.dat", FileFormat:= _
xlTextPrinter, CreateBackup:=False
Problem ist aber jetzt, daß die Zeilen wo keine Werte drin stehen mit exportiert werden und somit Leerzeilen in der Datei drin sind. Das darf aber nicht sein.
Darum habe ich versucht, nur die Formate und Werte zu kopieren, aber entweder ist die Datei dann leer oder es treten Fehler auf. Gibt es da einen anderen/richtigen Weg?
hier ist's imm er leer
ThisWorkbook.Sheets("xxx").Select
Selection.Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Steve