Erstellung CSV Datei als Makro

[EbyAS]

Hallo,
darfst Du mit Makros arbeiten? D.h. kannst Du das einrichten?

[Kuwer]

Hallo jovo,

mit dem Parameter Local:=True sollte es gehen. DatumZeit ist auch drin:

Sub CSVerzeugen()

   With ActiveSheet.Range("$A$1").CurrentRegion

     .AutoFilter Field:=10, Criteria1:="<>"

     .Copy

   End With

   With Workbooks.Add(xlWBATWorksheet)

     .Sheets(1).Cells(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _

                                       SkipBlanks:=False, Transpose:=False

     .SaveAs Filename:="O:\Technik\IMPORTE\importdatei" & Format(Now, "yyyymmddhhnn") & ".csv", _

             FileFormat:=xlCSV, CreateBackup:=False, Local:=True

     .Close False

   End With

   ActiveSheet.Range("$A$1").CurrentRegion.AutoFilter Field:=10

End Sub

Gruß Uwe

[EbyAS]

Hallo,
ich habe Dir einmal eine VBA Lösung hoch geladen.
Makro starten und es entsteht eine Csv-Datei im gleichen Verzeichniss.
Den Filenamen kannst Du auch anpassen bzw. dynamisch erzeugen.
Falls die Länge (Anzahlen der Zeilen)  anders bestimmt werden sollen musst Du Dich halt noch einmal melden.