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.